Equivalent of (IntPtr)1 in VBNET?

Question

I've taken a piece of code from a @Hans Passant code from here: Bold text in MessageBox

this is the C# code:

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

Which would be the translation into vb.net?

This will not work (cant be compiled):

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

Answer 1

Try this:

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