LOCAL loForm
ON ESCAPE loform.release
loForm = CREATEOBJECT("oForm")
loForm.Show( 1 )

DEFINE CLASS oForm AS FORM
	nHwnd =  0 
	TitleBar =  0 
	BorderStyle= 2 
	
	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, 0xF011, 0x0)
	ENDIF
	ENDPROC
ENDDEFINE