PUBLIC oform1, oform2

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

DEFINE CLASS form1 AS form

	Top = 17
	Left = 102
	ShowWindow = 2
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 36, ;
		Left = 66, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"


	ADD OBJECT command2 AS commandbutton WITH ;
		Top = 210, ;
		Left = 264, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command2", ;
		Name = "Command2"


	PROCEDURE command1.Click
		oform2=NEWOBJECT("form2")
		oform2.Show
	ENDPROC


	PROCEDURE command2.Click
		thisform.release()
	ENDPROC
	Procedure QueryUnload
		clear events
	endproc
ENDDEFINE

DEFINE CLASS form2 AS form

	Top = 0
	Left = 0
	Height = 205
	Width = 327
	Desktop = .F.
	ShowWindow = 1
	DoCreate = .T.
	Caption = "Form2"
	Name = "Form2"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 150, ;
		Left = 216, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Command1", ;
		Name = "Command1"


	PROCEDURE command1.Click
		thisform.release()
	ENDPROC

ENDDEFINE