关于vb WebBrowse禁用右键的问题

发到vb吧没什么人回，希望这里有很回。
网上有一端现成的代码Rem ＃窗体代码＃ 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 
End Sub 别人也有使用了不成功的类似问题。。网上说是不会错的。。我使用了。。提示WithEvents M_Dom As MSHTML.HTMLDocument错误，用户自定义类型未定望高人解答。。谢谢。。好像是关系到windows\system32\mshtml.tlb不知道是我没引用。。另外怎么引用而且这个控件没有点击事件。。还要禁止快捷键
 2楼网上的垃圾别去拿，都是废品
取得webbrowser句柄拦截右键消息即可 webbrowser句柄拦截又怎么用？