Equivalent to (IntPtr) 1 in VBNET?

Question

I took a snippet of code from @Hans Passant code from here: Bold text in MessageBox

this is C # code:

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

What will be the translation on vb.net?

This will not work (impossible to compile):

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

+4

Elektrostudios Oct 9 '13 at 21:41

1 answer

Douglas barbin · Accepted Answer · 2013-10-09T21:46:02+0000

Try the following:

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