CLEAR zz = 'pippo' xx=CREATEOBJECT('txt') xx.xvalue = 'cambio' xx.tag = 'nuovo tag' =xx.value ww = 'xx.value' ? '*** next have problems' xx.value = 7 STORE 7 TO xx.value STORE 7 TO (m.ww) ? '*** but internal assign no' xx.controlsource = 'm.zz' DEFINE CLASS txt AS TextBox xValue = 'prova' PROCEDURE xvalue_ACCESS ? 'ACCESS xvalue',this.xvalue RETURN this.xvalue PROCEDURE xvalue_assign(wValue) ? 'ASSIGN xvalue',wValue this.xvalue = m.wValue PROCEDURE value_ACCESS ? 'ACCESS value',this.value RETURN this.value PROCEDURE value_assign(wValue) ? 'ASSIGN value',wValue this.value = m.wValue PROCEDURE tag_ACCESS ? 'ACCESS tag',this.tag RETURN this.tag PROCEDURE tag_assign(wValue) ? 'ASSIGN tag',wValue this.tag = m.wValue PROCEDURE controlsource_ACCESS ? 'ACCESS controlsource',this.controlsource RETURN this.controlsource PROCEDURE controlsource_assign(wValue) ? 'ASSIGN controlsource',wValue this.controlsource = m.wValue ENDDEFINEFabio