Oi Fábio e Rodolfo;

>No evento Keypress do seu Form:


>LPARAMETERS nKeyCode, nShiftAltCtrl
>
>LOCAL loControleAtivo
>
>loControleAtivo = THISFORM.ActiveControl
>loControleAtivo.SetFocus()
>

Pessoal, Discordando um pouco e ao mesmo tempo complementando seu raciocínio acredito que o Rodolfo necessita de algo num Refresh como:

oobj.lockscreen = .t.
For m.i = 1 TO oobj.ControlCount  && oobj é a referencia ao form dele
    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
ENDFOR
oobj.lockscreen = .f.

HTH

Claudio