Dim i As Integer = 0

If WebBrowser1.Document IsNot Nothing Then

Dim str As String = String.Empty

For Each form As HtmlElement In WebBrowser1.Document.Forms

i = i + 1

str = i.ToString + " " + str + form.Name + vbCrLf

str = str + form.GetType.ToString + vbCrLf

str = str + form.InnerText.ToString + vbCrLf

str = str + form.OuterText.ToString + vbCrLf

Next

MessageBox.Show(str)


-------------------------------------
Hope this helps :-) Ask me anything you need to know. Any proggin lang too :-) admin@simulanics.com