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

我从这里的@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))