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