Realizar función al hacer click en un input button de un WebBrowser?

[z3nth10n]

Pues no me va

Código [Seleccionar] Expandir

    Private Sub frmModpacks_Web_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'Dim prueba As String = Me.WebBrowser1.Document.GetElementById("nombre").GetAttribute("Value")

        WebBrowser1.Navigate("http://ikillcraft.a0001.net/modpacks.php")
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim document As HtmlDocument = WebBrowser1.Document

        'Attach Click event handler
        AddHandler document.Body.Click, New HtmlElementEventHandler(AddressOf WebBrowser1_Clicked)
    End Sub   

Private Sub WebBrowser1_Clicked(ByVal sender As Object, ByVal e As System.Windows.Forms.HtmlElementEventArgs)
        Dim document As HtmlDocument = TryCast(sender, HtmlDocument)

        Select Case document.ActiveElement.TagName.ToLower
            Case "button" : MsgBox("apretaste un button")
            Case "input" : MsgBox("apretaste un input")
            Case Else
        End Select
    End Sub

Un saludo y gracias por ayudar

[Eleкtro]

El fallo lo tienes aquí:

Código (vbnet) [Seleccionar] Expandir

AddHandler document.Body.Click, New HtmlElementEventHandler(AddressOf WebBrowser1_Clicked)

Te vuelvo a citar lo que dije comentarios atrás:

PD: el objeto sender es de tipo "HtmlDocument", NO de tipo HtmlElement como está en tu código de arriba.

En resumen, pasa el puntero de tu mouse sobre "Body", y lee lo que pone, lee, lee y comprende, y luego lo modificas...