• Home
 · 
• Miscellaneous
 · 
• Detect if Shift Key is down

Detect if Shift Key is down

A function that returns whether or not the shift key is currently down.

API Declarations
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal uAction As Long) As Long


Rate Detect if Shift Key is down

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private Function ShiftDown()
  Dim RetVal As Long
  RetVal = GetAsyncKeyState(16) 'SHIFT key
  If (RetVal And 32768) <> 0 Then
    ShiftDown = True
  Else
    ShiftDown = False
  End If
End Function