用js来屏蔽webbrowser的右键

Private Sub Form_Load()
    WebBrowser1.Navigate ""
End Sub
                                                                         
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    Dim js$
    js = "document.body.oncontextmenu=function()" & vbCrLf & _
         "{event.returnValue=false;}"
    WebBrowser1.Document.parentWindow.execScript js, "javascript"
End Sub

省得引用html了，也省的吃消息了,用js多方便啊