维克苗综合站

Option Explicit
Dim WithEvents M_Dom       As MSHTML.HTMLDocument
Private Sub Form_Load()
    Me.WebBrowser1.Navigate (App.Path & "/sad.html")
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