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