Oi Fábio e Rodolfo;

se vocês possuem ainda pageframes ou containner complemente com:

oobj.LOCKSCREEN = .T.
FOR m.i = 1 TO oobj.CONTROLCOUNT  && oobj é a referencia ao form dele
    IF  oobj.CONTROLS[m.i].BASECLASS$"Pageframe Container "
        FOR m.j = 1 TO oobj.CONTROLS[m.i].CONTROLCOUNT
            ocontrol = oobj.CONTROLS[m.i].CONTROLS[m.j]
            IF  oobj.ACTIVECONTROL.NAME=ocontrol.NAME
                ocontrol.FORECOLOR=RGB(255,0,0)
            ELSE
                ocontrol.FORECOLOR=RGB(0,0,0)
            ENDIF
        ENDFOR
    ELSE
        ocontrol = oobj.CONTROLS[m.i]
        IF  oobj.ACTIVECONTROL.NAME=ocontrol.NAME
            ocontrol.FORECOLOR=RGB(255,0,0)
        ELSE
            ocontrol.FORECOLOR=RGB(0,0,0)
        ENDIF
    ENDIF
ENDFOR
oobj.LOCKSCREEN = .F.

HTH

Claudio