[RESOLVED] global shift key released

[Thunder!]

ok thank RhinoBull... how to detect key released with it?

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Sub Timer1_Timer()
Debug.Print GetKeyState(16)
End Sub

[RhinoBull]

A little different:

Option Explicit

Private Const VK_SHIFT = &H10

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
    If (GetAsyncKeyState(VK_SHIFT) And &HF0000000) = &HF0000000 Then
        Debug.Print "shift key is down"
    Else
        Debug.Print "shift key is up"
    End If
End Sub