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