oTest = createobject('ftest') oTest.Show(1) DEFINE CLASS ftest AS form Top = 0 Left = 0 Height = 124 Width = 139 DoCreate = .T. Caption = "Form2" cval1 = "Value1" cval2 = "VALUE2" cval3 = "vALUE3" Name = "csvsvalue" ADD OBJECT text1 AS textbox WITH ; ControlSource = "thisform.cVal1", ; Height = 23, ; Left = 18, ; Top = 12, ; Width = 100, ; Name = "Text1" ADD OBJECT text2 AS textbox WITH ; ControlSource = "thisform.cVal2", ; Height = 23, ; Left = 18, ; Top = 48, ; Width = 100, ; Name = "Text2" ADD OBJECT text3 AS textbox WITH ; ControlSource = "thisform.cVal3", ; Height = 23, ; Left = 18, ; Top = 84, ; Width = 100, ; Name = "Text3" PROCEDURE text1.InteractiveChange nSel = this.selstart this.value = proper(this.value) this.selstart = nSel ENDPROC PROCEDURE text2.InteractiveChange nSel = this.selstart this.value = proper(thisform.cval2) this.selstart = nSel ENDPROC PROCEDURE text3.InteractiveChange nSel = this.selstart thisform.cval3 = proper(thisform.cval3) this.selstart = nSel thisform.refresh() ENDPROC ENDDEFINE