Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Shift key, alt key and control key mask

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