Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://www.google.de/")
 
    End Sub
 
    Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As _
      WebBrowserDocumentCompletedEventArgs) Handles _
      WebBrowser1.DocumentCompleted
 
        If e.Url.ToString() = "http://www.google.de/" Then 'nur bei der 
        ' Google-Startseite
 
            Dim inputElements As HtmlElementCollection = _
              WebBrowser1.Document.GetElementsByTagName("input")
 
            For Each element As HtmlElement In inputElements
 
                If element.Name = "q" Then
                    'Sucheingabefeld gefunden
 
                    element.AttachEventHandler("onfocus", _
                        Sub(sender2 As Object, e2 As EventArgs)
                            MessageBox.Show("Suchfeld Fokus")
                        End Sub)
 
                End If
 
            Next
 
        End If
 
    End Sub
 
End Class