WebBrowser1.Document.body.innerHTML = sHTML

　　'將事件響應類連接到頁面的按鈕btnMyButton上

　　Set cfForward = New clsForward

　　cfForward.Set_Destination Me, "Some_Procedure"

　　WebBrowser1.Document.All("btnMyButton").onclick = cfForward

　　End Sub

　　向工程中添加一個Class Module，Class Module的Name屬性設定為clsForward，在clsForward中添加以下代碼：

　　Option Explicit

　　Dim oObject As Object

　　Dim sMethod As String

　　Dim bInstantiated As Boolean

　　Private Sub Class_Initialize()

　　bInstantiated = False

　　End Sub

　　Public Sub Set_Destination(oInObject As Object, sInMethod As String)

　　Set oObject = oInObject

　　sMethod = sInMethod

　　bInstantiated = True

　　End Sub

　　Public Sub My_Default_Method()

　　If bInstantiated Then

　　CallByName oObject, sMethod, VbMethod

　　End If

　　End Sub

　　運行程序，點擊Webbrowser中的“Click this button”按鈕。程序就會彈出消息框提示“你點擊了按鈕.”

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等考二級VB輔導知識技巧匯總