1.form1Option ExplicitPublic Sub Some_Procedure()
    MsgBox "你点击了按钮."
End SubFunction ContentMenu() As Boolean
    'PopupMenu a
    ContentMenu = False
End FunctionPrivate Sub Form_Load()
    '下载空页面
    WebBrowser2.Navigate2 "about:blank"
End SubPrivate Sub WebBrowser2_DocumentComplete(ByVal pDisp As Object, URL As Variant)    '建立事件响应类
    Dim cfForward     As clsForward    '定义在浏览器中显示的HTML代码,其中包含一个按钮btnMyButton
    Dim sHTML     As String
    sHTML = "<P>This   is   some   text.</P>"
    sHTML = sHTML & "<P>And   here   is   a   button.</P>"
    sHTML = sHTML & "<BUTTON   ID=btnMyButton>"
    sHTML = sHTML & "Click   this   button.</BUTTON>"    '将HTML代码写入浏览器
    WebBrowser2.Document.body.innerHTML = sHTML    '将事件响应类连接到页面的按钮btnMyButton上
    Set cfForward = New clsForward
    cfForward.Set_Destination Me, "Some_Procedure"
    WebBrowser2.Document.All("btnMyButton").onclick = cfForward    '屏蔽上下文菜单
    Dim cContentMenu     As New clsForward
    cContentMenu.Set_Destination Me, "ContentMenu"
    WebBrowser2.Document.body.oncontextmenu = cContentMenu
  End Sub2.clsForwardOption ExplicitDim oObject     As Object
Dim sMethod     As String
Dim bInstantiated     As BooleanPrivate Sub Class_Initialize()    bInstantiated = False
    
End SubPublic Sub Set_Destination(oInObject As Object, sInMethod As String)
    
    Set oObject = oInObject
    sMethod = sInMethod
    bInstantiated = True
    
End SubPublic Sub My_Default_Method()
    
    If bInstantiated Then
        CallByName oObject, sMethod, VbMethod
    End If
    
End Sub