Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Long
Public Const VK_SPACE = &H20 '[Space]
Public Const VK_A = &H41 '[A]
Public Const VK_S = &H53 '[S]
Public Const VK_LEFT = &H25 '[←]
Public Const VK_UP = &H26 '[↑]
Public Const VK_RIGHT = &H27 '[→]
Public Const VK_DOWN = &H28 '[↓]

Private m_MoveKeyLog As lBlockMove
Private m_SpinKeyLog As lBlockMove
Private m_MoveKeyCount As Long
Private m_SpinKeyCount As Long

Private nDebugCount As Long

Public Function getRnd(ByVal nMin As Long, ByVal nMax As Long) As Long