>PUBLIC oform1, oform2 > >oform1=NEWOBJECT("form1") > >oform1.Show >RETURN > >DEFINE CLASS form1 AS form > > ShowWindow = 2 && As top-level form > WindowType = 0 && Modeless > > AutoCenter = .T. > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > height = 480 > width = 640 > > PROCEDURE Click > WAIT WINDOW ; > "Form1: ShowWindow = " + ; > ALLTRIM(STR(this.ShowWindow)) + ; > " WindowType = " + ; > ALLTRIM(STR(this.WindowType)) TIMEOUT 3 > > oform2=NEWOBJECT("form2") > oform2.Show > THISFORM.Release() > ENDPROC > >ENDDEFINE > >DEFINE CLASS form2 AS form > > ShowWindow = 1 && In top-level form > WindowType = 1 && Modal > > AutoCenter = .T. > DoCreate = .T. > Caption = "Form2" > Name = "Form2" > height = 480*.5 > width = 600*.5 > > PROCEDURE Click > WAIT WINDOW ; > "Form2: ShowWindow = " + ; > ALLTRIM(STR(this.ShowWindow)) + ; > " WindowType = " + ; > ALLTRIM(STR(this.WindowType)) TIMEOUT 3 > > THISFORM.Release() > ENDPROC > >ENDDEFINE >>