GetKeyState
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _ Long Function GetCapsLockKey() As Boolean GetCapsLockKey = GetKeyState(vbKeyCapital) End Function
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _
Long
Function GetCapsLockKey() As Boolean
GetCapsLockKey = GetKeyState(vbKeyCapital)
End Function
( getkeystate.html )- by Paolo Puglisi
- Modifica del 17/12/2023