Private Sub testLoadWebBrowser()
        loadWebBrowser("http://www.vbarchiv.net/forum/id22_i8405t8405.html", _
          Me.AxWebBrowser1)
        Dim doc As mshtml.IHTMLDocument2 = AxWebBrowser1.Document
 
        AxWebBrowser1.Document.formular.item("body").value = "Hi there!"
    End Sub
 
    Private Sub loadWebBrowser(ByVal url As String, ByVal wb As _
      AxSHDocVw.AxWebBrowser)
        wb.Navigate(url)
        While wb.ReadyState <> SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        End While
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist