Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
     Handles Me.Load
        Me.AxWebBrowser1.Navigate2("http://google.de", Nothing, Nothing, _
        Nothing, Nothing)
        AddHandler Me.AxWebBrowser1.DocumentComplete, New _
        AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEventHandler(AddressOf _
        DocumentComplete)
    End Sub
 
    Private Sub DocumentComplete(ByVal sender As Object, ByVal e As _
      AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent)
        Dim doc As mshtml.HTMLDocument = AxWebBrowser1.Document
        Dim iEvent As mshtml.HTMLDocumentEvents2_Event = doc
        AddHandler iEvent.onkeypress, New _
          mshtml.HTMLDocumentEvents2_onkeypressEventHandler(AddressOf _
          HtmlDocKeyPress)
     End Sub
 
    Private Function HtmlDocKeyPress(ByVal e As mshtml.IHTMLEventObj) As Boolean
        e.returnValue = True '/ ??
        Return True '// ??
    End Function