VBNET中的（IntPtr）1的等价物？

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