WebBrowser能否自定义右键菜单？

我想用VB 的WebBrowser做一个小软件，但不想显示其右键菜单查看源代码等。

能否自定义WebBrowser右键菜单？

如果能，怎么样操作或者写出代码谢谢。

WithEvents M_Dom As MSHTML.HTMLDocument错误，用户自定义类型未定义，我的是VB6，控件都引用了，怎么会这样？

'引用Microsoft HTML OBject Library
'加入webbrowser控件
'在窗体上自定义一个菜单(设为MyMenu)
'复制下面代码，运行即可禁止右键菜单了

'====窗体代码====
Dim WithEvents M_Dom As MSHTML.HTMLDocument
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function
Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document '好了，右键菜单没有了
me.PopupMenu mymenu '弹出自定义菜单
End Sub

用菜单编辑器，新建一个name为popmenu的菜单，属性隐藏。 在webbrowser的mouseup事件里调用如下代码： if button=2 then popmenu mymenu (*这里写你的代码*) end if