Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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