Public Type PointN
 X As Long
 Y As Long
End Type

Public Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PointN) As Long
Public Declare Function GetCursor Lib "user32" () As Long
Public Declare Function GetDoubleClickTime Lib "user32" () As Long
Public Declare Function GetFocus Lib "user32" () As Long
Public Declare Function GetInputState Lib "user32" () As Long
Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

  Label2.Caption = GetCurrentTime()
  Call GetCursorPos(P)
  Label5.Caption = str(P.X) + " / " + str(P.Y)
  Label7.Caption = GetCursor
  Label9.Caption = GetDoubleClickTime
  Label10.Caption = GetFocus
  Label13.Caption = GetInputState
  Label24.Caption = GetKeyboardState(m(0))