Dim doc As mshtml.HTMLDocument
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
        Me.AxWebBrowser1.Navigate2("http://google.de", Nothing, Nothing, _
        Nothing, Nothing)
        Do
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
        Loop While AxWebBrowser1.ReadyState <> _
          SHDocVw.tagREADYSTATE.READYSTATE_COMPLETE
        doc = AxWebBrowser1.Document
        AddHandler doc.onkeypress, AddressOf HtmlDocKeyPress
    End Sub
 
    Private Function HtmlDocKeyPress() As Boolean
        MessageBox.Show("Taste gedrückt!")
    End Function