Private Sub Form_Load()
  ' Wichtig!
  Me.KeyPreview = True
 
  ' Einem Menü-Eintrag F10 als Shortcut zuordnen
  MenuFileOpen.Caption = "Datei öffnen" & vbTab & "F10"
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  ' F10 abfragen
  If KeyCode = vbKeyF10 And Shift = 0 Then
    KeyCode = 0
    MenuFileOpen_Click
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de