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