
EscapePressed – Check whether the Esc key was pressed
Private Type POINTAPI x As Long y As LongEnd TypePrivate Type MSGTYPE hWnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPIEnd TypePrivate Declare Function GetInputState Lib “user32” () As LongPrivate Declare Function PeekMessage Lib “user32” Alias “PeekMessageA” (lpMsg _ As MSGTYPE,