> >local loForm, lnStart > >lnStart = Seconds() >loForm = Createobject('TestForm', 2000) >lnCreatedIn = Seconds() - lnStart >loForm.Show(1) >lnStart = Seconds() >loForm.release() >activate screen >clear >? 'Created in: ', lnCreatedIn >? 'Destroyed in: ', Seconds() - lnStart > >define class TestForm as Form > add object cmdExit as CommandButton with ; > Caption = 'Exit', ; > Left = 0, ; > Top = 0 > > procedure cmdExit.Click() > thisform.Hide() > endproc > > procedure init(tnObjects) > local lnObjects, lnObject, lcName > > lnObjects = Iif(Vartype(tnObjects) = 'N', tnObjects, 10) > for lnObject = 1 to lnObjects > lcName = 'Object' + Transform(lnObject, '@L 999999999') > this.AddObject(lcName, 'TextBox') > next i >enddefine >