Private Sub Form_Load()
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyF11 And Shift = 0 Then
    MsgBox "F11"
  ElseIf KeyCode = vbKeyF2 And Shift = vbKeyControl Then
    MsgBox "STRG+F2"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de