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. 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("Dialog") oform2.Show THISFORM.Release() ENDPROC ENDDEFINE DEFINE CLASS Dialog AS form ShowWindow = 1 && In top-level form WindowType = 1 && Modal Desktop = .t. && <========= !!!!!!!!!!!!!! AutoCenter = .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 ENDDEFINEResult: