Declare Function GetMessage Lib "user32" _ Alias "GetMessageA" _ (lpMsg As Msg, _ ByVal hWnd As Long, _ ByVal wMsgFilterMin As Long, _ ByVal wMsgFilterMax As Long) As Long Type POINTAPI x As Long y As Long End Type Type Msg hWnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type