如何去掉webbrowser右建web菜单，变成VB中右建弹出菜单？

Question

如何去掉webbrowser右建web菜单，变成VB中右建弹出菜单？

Answer 1

'引用Microsoft HTML OBject Library
Dim WithEvents M_Dom As MSHTML.HTMLDocumentPrivate Sub Form_Load()
 
 WebBrowser1.Navigate "http://www.baidu.com"
 
End Sub
Private Function M_Dom_oncontextmenu() As Boolean
        M_Dom_oncontextmenu = False
End Function
 
 Private Sub Webbrowser1_DownloadComplete()
      Set M_Dom = WebBrowser1.Document
 End Sub