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