Public Sub TranslateAccelerator(ByRef lpmsg As MsHtmHstInterop.tagMSG, ByRef _
     pguidCmdGroup As System.Guid, ByVal nCmdID As System.UInt32) Implements _
     MsHtmHstInterop.IDocHostUIHandler.TranslateAccelerator
        Const WM_KEYDOWN As Integer = &H100
        ' Liegt ein Key-Down-Ereignis vor?
        If Convert.ToInt64(lpmsg.message) <> WM_KEYDOWN Then
            ' Tastendruck ausführen
            Throw New Runtime.InteropServices.COMException("", 1)
            ' Ist Shift gedrückt?
        Else
            ' Welche Taste wurde gedrückt?
            Select Case Convert.ToInt64(lpmsg.wParam)
                Case Keys.P, Keys.F, Keys.N, Keys.M, Keys.A, Keys.D5
                    ' Wenn STRG gedrückt ist, Tastendruck verhindern
                    Throw New Runtime.InteropServices.COMException("", Val(IIf( _
                      GetAsyncKeyState(Keys.ControlKey) <> False, 0, 1)))
                Case Keys.F5
                    ' Tastendruck verhindern
                    Throw New Runtime.InteropServices.COMException("", 0)
                Case Keys.Back
                    ' Wenn kein Eingabefeld fokussiert ist, Tastendruck 
                    ' verhindern
                    Throw New Runtime.InteropServices.COMException("", Val(IIf( _
                      AxWebBrowser1.Document.activeElement.isTextEdit, 1, 0)))
                Case Else
                    ' Alle anderen Tasten erlauben
                    Throw New Runtime.InteropServices.COMException("", 1)
            End Select
        End If
    End Sub
    Public Sub TranslateUrl(ByVal dwTranslate As System.UInt32, ByRef pchURLIn _
      As System.UInt16, ByVal ppchURLOut As System.IntPtr) Implements _
      MsHtmHstInterop.IDocHostUIHandler.TranslateUrl
    End Sub
    Public Sub UpdateUI() Implements MsHtmHstInterop.IDocHostUIHandler.UpdateUI
    End Sub

Meine Homepage: www.dartrax.de