Private Sub Form_Load()
  ' Wichtig!
  Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  ' F2 abfragen
  If KeyCode = vbKeyF2 And Shift = 0 Then
    Shell "Pfad_zur_anderen_EXE_Datei", 1
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de