Local o As Form o=Createobject('myForm') o.Show(1) Define Class myForm As Form Add Object Text1 As myTextBox Add Object Edit1 As myEditBox Add Object Button1 As CommandButton With ; top = 30 Add Object Button2 As CommandButton With ; top = 120 Procedure Button1.Click Thisform.Text1.Value = "Text1" Thisform.Refresh Endproc Procedure Button2.Click Thisform.Edit1.Value = "Edit1" Thisform.Refresh Endproc Enddefine Define Class myTextBox As TextBox Value = "" Procedure Value_Assign Lparameters tvValue Debugout Program(0) + ": " + Transform(tvValue) This.Value = tvValue Endproc Enddefine Define Class myEditBox As EditBox Value = "" Top = 50 Procedure Value_Assign Lparameters tvValue Debugout Program(0) + ": " + Transform(tvValue) This.Value = tvValue Endproc Enddefine