Private m_inited As Boolean
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("...")
        m_inited = True
    End Sub
 
    Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles _
      WebBrowser1.Navigating
        If Not m_inited Then Return
 
        For Each f As HtmlElement In WebBrowser1.Document.Forms
            If e.Url.ToString.Contains(f.GetAttribute("action")) Then
 
                Dim zutat As HtmlElement = f.Children.GetElementsByName( _
                  "zutat")(0)
 
                MsgBox(zutat.GetAttribute("checked"))
            End If
        Next
    End Sub

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008