Equivalent of (IntPtr)1 in VBNET?

问题

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))

回答1:

Try this:

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

来源：https://stackoverflow.com/questions/19283287/equivalent-of-intptr1-in-vbnet