#DEFINE WM_MOUSEFIRST 0x0200
#DEFINE WM_MOUSELAST 0x0209
#DEFINE PM_REMOVE 0x0001

DECLARE INTEGER PeekMessage IN user32;
	STRING @lpMsg, INTEGER hWindow,;
	INTEGER wMsgFilterMin, INTEGER wMsgFilterMax,;
	INTEGER wRemoveMsg
	
cBuffer=REPLICATE(CHR(0), 64)

DO WHILE PeekMessage(@cBuffer, 0,;
	WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE) <> 0
	DOEVENTS
ENDDO