Option Explicit
 
Private Sub Form_Activate()
  With WebBrowser1
    .Tag = "Loading"
    .Navigate "http://overs.ov.ohost.de/php.php"
    Do
      DoEvents
    Loop While .Tag = "Loading"
  End With
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  WebBrowser1.Tag = ""
End Sub
 
Private Sub Command1_Click()
  WebBrowser1.Document.Forms(0).area1.Value = "hi"
  WebBrowser1.Document.Forms(0).submit
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de