Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case Shift
Case acShiftMask
MsgBox "You pressed the SHIFT key."
Case acCtrlMask
MsgBox "You pressed the CTRL key."
Case acAltMask
MsgBox "You pressed the ALT key."
End Select
End Sub