>LOCAL aControl[1] >IF ASELOBJ(aControl) = 0 > IF ASELOBJ(aControl, 1) = 0 > RETURN > ENDIF >ENDIF > >FOR EACH loControl IN aControl[1].CONTROLS > IF PEMSTATUS(loControl,'ControlSource',5) > lnStart = AT('.',loControl.CONTROLSOURCE)+1 > lcSource = SUBSTR(loControl.CONTROLSOURCE,lnStart) > loControl.WRITEEXPRESSION('cControlSource',lcSource) > loControl.RESETTODEFAULT('ControlSource') > ENDIF >ENDFOR >If you use writeexpression() then it writes an 'expression' < g >.If you want a constant as you do then: