Private Sub Form_Load()
  ' Alt+Q im Menü als Shortcut anzeigen
  mnuExit.Caption = "&Beenden" & vbTab & "Alt+Q"
 
  ' Form soll als erstes über Tastaturereignisse informiert werden
  Me.KeyPress = True
End Sub
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  ' Alt+Q "abfangen"
  If KeyCode = vbKeyQ And Shift = 4 Then
    KeyCode = 0
    mnuExit_Click
  End If  
End Sub
 
Private Sub mnuExit_Click()
  ' Beenden
  Unload Me
  End
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de