Protected WithEvents my_element As mshtml.HTMLInputElementClass
 
Private Sub AxWebBrowser1_DocumentComplete1(ByVal sender As Object, ByVal e As _
  AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles _
  AxWebBrowser1.DocumentComplete
        Dim doc As mshtml.IHTMLDocument2 = CType(Me.AxWebBrowser1.Document, _
        mshtml.IHTMLDocument2)
                    my_element = doc.getElementsByName("iwas")
       End Sub
 
       Private Function my_element_HTMLInputTextElementEvents_Event_onclick() _
         As Boolean Handles my_element.HTMLInputTextElementEvents_Event_onclick
        MessageBox.Show("Button in HTML gedrückt!")
    End Function