Dim i,x
 
 For x = 0 To WebBrowser1.Document.Forms.length - 1
                For i = 0 To WebBrowser1.Document.Forms(x).elements.length - 1
                    MsgBox " Formular Type: " & WebBrowser1.Document.Forms(x) & _
                      "  Formname: " & WebBrowser1.Document.Forms(x).Name & " " & _
                      "Elementname: " & WebBrowser1.Document.Forms(x).elements( _
                      i).Name
                Next i
Next x