PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 250
	Width = 375
	DoCreate = .T.
	Caption = "Form1"
	TitleBar = 0
	Name = "Form1"


	PROCEDURE Init
		Declare ReleaseCapture in "user32"
		Declare long SendMessage in "user32" long hwnd, long wMsg, long wParam, long lParam
	ENDPROC


	PROCEDURE MouseDown
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		if nButton = 1 
		   ReleaseCapture()
		   SendMessage(this.hwnd, 0x112, 0xF012, 0x0)
		endif
	ENDPROC


ENDDEFINE