Private Sub Command1_Click()
  WebBrowser1.Tag = "Loading"
  WebBrowser1.Navigate2 Text1.Text
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  If (pDisp Is WebBrowser1.Object) Then WebBrowser1.Tag = ""
End Sub
 
Private Sub Command2_Click()
  Do While WebBrowser1.Tag = "Loading"
    DoEvents
  Loop
  Text3.Text = WebBrowser1.Document.Forms(0).Name
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de