>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 >