VB 屏蔽webbrowser 控件右键菜单方法

VB 屏蔽webbrowser 控件右键菜单方法
方法
                      第一步：
        在菜单中单击"工程"->"引用"，在列表中找到"Microsoft HTML Object Library"打上勾，按确定就可以了。
            
      然后自己加上控件
            
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
Private Sub Form_Load()
WebBrowser1.Navigate http://www.cmd58.com
End Sub
这样就 OK了