Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim url As String = "http://www.vbarchiv.net/forum/post.php?f=10"
        AxWebBrowser1.Navigate(url)
        While AxWebBrowser1.ReadyState <> _
          SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
            Application.DoEvents()
            System.Threading.Thread.Sleep(100)
        End While
        Dim doc As mshtml.IHTMLDocument2 = AxWebBrowser1.Document
        Dim elem As mshtml.IHTMLInputElement = doc.all.item("subject")
        elem.value = "Hi there!"
    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