Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' projektverweiss auf "microsoft.mshtml" setzen
        WebBrowser1.Navigate("gpn39f.dyndns.org/test")
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
    End Sub
 
    Private Sub AbschickenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      AbschickenToolStripMenuItem.Click
        Dim doc As mshtml.HTMLDocument = WebBrowser1.Document.DomDocument
        Dim cInput As mshtml.IHTMLElementCollection = doc.getElementsByTagName( _
          "input")
        Dim eInput As mshtml.IHTMLElement = cInput.item("wech")
        ' hier müssten dem eInput weitere Werte übergeben werden ????
        eInput.click()
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete : Loop
    End Sub
 
 
End Class