Option Explicit On
Option Strict On
 
Public Class Form1
 
    Dim WithEvents WebControl As New WebBrowser
 
    Public Sub New()
        InitializeComponent()
        WebControl.Size = New Size(500, 500)
        Me.Controls.Add(WebControl)
        WebControl.Url = New Uri("http://www.google.de")
        WebControl.Show()
    End Sub
 
    Private Sub WebControl_DocumentCompleted(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles _
      WebControl.DocumentCompleted
        Try
            Dim TmpItem As System.Windows.Forms.HtmlElement = _
                           WebControl.Document.GetElementById("q")
 
            TmpItem.InnerText = "vbArchiv"
            WebControl.Document.Forms.Item("f").InvokeMember("submit")
            ' Macht beim zweiten Durchlauf eine Exception - logisch. Da auf der 
            ' nächsten Seite
            ' das Element "f" nicht vorhanden ist. Muss also noch optimiert 
            ' werden...
        Catch ex As Exception
            Debug.Print(ex.ToString)
        End Try
 
    End Sub
 
End Class

_________________________________________________________________________________________________
Internet-Adressen innerhalb des (..) WWW beginnen stets mit der Buchstabenfolge http://www. (LG Duisburg, AZ 8 O 219/99)