VBNET中的(IntPtr)1的等价物？

Question

我从这里的@Hans Passant代码中获取了一段代码: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))