Como trocar as cores de uma grid no Protheus

Pessoal, aqui vai uma dica de como alterar as cores das linhas nos objetos MSSelect, TMSNewGetDados, TNewGetDados, entre outros browsers.

#include "colors.ch"
User Function CorLinhaBrowse()
   Private _oBrowseColorido := ""
   Private _oDlg := ""
   @ 0,0 To 510,750 Dialog _oDlg Title "Mostrar Grid Colorida"
   @ 05,05 To 170,370 Browse "TZ09" Fields aCampos object _oBrowseColorido
   _oBrowseColorido:obrowse:acolumns[1]:BCLRFORE := {|SETVAL| SFMudaCor(1)} //Cor da Fonte
   _oBrowseColorido:obrowse:acolumns[1]:BCLRBACK := {|SETVAL| SFMudaCor(2)} //Cor da Linha     
   Activate Dialog _oDlg Centered
Return


Static Function SFMudaCor(nIOpcao)
   Private _cCor := ""
   if nIOpcao == 1 // Cor da Fonte
      _cCor := CLR_YELLOW
   else // Cor do Fundo
      _cCor := CLR_BLACK
   endif
Return _cCor

Se caso nao conseguir deixe seu comentário