Antonio, Gracias, mas ainda não foi desta vez, já fiz várias tentativas : nFocou := 0 oTelaPrincipal:bGotFocus := {|| iif (oSistema:oActiveX != nil, (oTelaPrincipal:cTitle := "focou " + str(nfocou++,06) , oSistema:oWndMenu:Refresh (),InvalidateRect( ...