Dim Strg As Boolean
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 17 Then
        Strg = True
        Exit Sub
    End If
 
    If Strg Then
        Select Case Chr(KeyCode)
        Case "P": przDrucken
        Case "S": przSpeichern
        End Select
    End If
 
    Strg = False
End Sub
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 17 Then Strg = False
End Sub
 
Private Sub przDrucken()
    MsgBox "Drucken"
End Sub
 
Private Sub przSpeichern()
    MsgBox "Speichern"
End Sub