LOCAL loForm loForm = CREATEOBJECT("oForm") loForm.Show(1) DEFINE CLASS oForm AS FORM nHwnd = 0 TitleBar = 0 PROCEDURE INIT() DECLARE ReleaseCapture IN "user32" DECLARE LONG SendMessage IN "user32" LONG HWND, LONG wMsg, LONG wParam, LONG LPARAM IF VERSION(5) < 700 *-- Need to get the forms window handle ELSE THIS.nHwnd = THIS.HWnd ENDIF ENDPROC PROCEDURE MOUSEDOWN(nButton, nShift, nXCoord, nYCoord) IF nButton = 1 ReleaseCapture() SendMessage(THIS.nHWND, 0x112, 0xF012, 0x0) ENDIF ENDPROC ENDDEFINE