Эквивалент (IntPtr) 1 в VBNET?

Question

Я взял кусок кода из кода @Hans Passant здесь: Bold text in MessageBox

это C# код:

SendMessage(hText, WM_SETFONT, mFont.ToHfont(), (IntPtr)1) 

Какой бы перевод в vb.net?

Это не будет работать (не могу быть скомпилирован):

SendMessage(hText, WM_SETFONT, mFont.ToHfont(), DirectCast(1, IntPtr)) 

Answer 1

Попробуйте это:

SendMessage(hText, WM_SETFONT, mFont.ToHfont(), New IntPtr(1))