ion GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As
 Integer
Private Const WM_MOUSEMOVE = &amp;H200
Private Const WM_MOUSEUP = &amp;H200
Private Const WM_ACTIVATE = &amp;H6
Private Const WM_LBUTTONUP = &amp;H202
Private Const WM_MBUTTONUP = &amp;H208
Private Const WM_RBUTTONUP = &amp;H205

' Version detection:
' For OS:
Private Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformID As Long
   szCSDVersion As String