Declare Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As MSG, _ ByVal hwnd As Long, _ ByVal wMsgFilterMin As Long, _ ByVal wMsgFilterMax As Long) As Long
GetMessage возвращает сообщение из очеpеди сообщений пpикладной задачи.
Если функция возвращает ненулевое значение при обработке любых сообщений, кроме WM_QUIT. При обработке WM_QUIT возвращается 0. В случае ошибки возвращается -1. (Для получения кода ошибки используйте GetLastError
смотри пример apiform.zip