PUBLIC oform1 oform1=CREATEOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (e:\vfp5app\misc\modal1.scx) *-- ParentClass: form *-- BaseClass: form * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" WindowType = 1 Name = "Form1" ADD OBJECT text1 AS textbox WITH ; ControlSource = "thisform.tag", ; Left = 34, ; Top = 24, ; Width = 297, ; Name = "Text1" PROCEDURE Unload return this.Tag ENDPROC ENDDEFINE