oFOrm = createobject('form1') oFOrm.Show(1) ************************************************** *-- Form: form1 (c:\vfptest\nowwedit.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 01/18/01 08:43:05 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 201 Width = 260 ScrollBars = 3 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT edit1 AS editbox WITH ; Height = 181, ; Left = 0, ; ScrollBars = 0, ; Top = 0, ; Width = 241, ; Name = "Edit1" PROCEDURE edit1.Init this.value = filetostr(home() + 'vfp6faq.txt') this.width = 1000 this.height = 1000 ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************