Private Sub Form_Load()
  ' WICHTIG!
  Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Select Case KeyCode
    Case vbKeyF1
      MsgBox "F1"
    Case vbKeyF2
      MsgBox F2"
  End Select
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de