DICA PARA MUDAR A COR DO FOCO AO DIGITAR

[Gonzaga]

'Na árvore de projetos, clique na janela desejada
'Pressione F9 para abrir o editor
'Coloque em Funções e Rotinas Globais o trecho abaixo
'pode trocar a cor em BackColor para a cor desejada (ganhar o foco)
'volte para a mesma cor do campo antes do foco em BackColor (perder o foco)

'evento quando o campo ganhar o foco
Private Sub txtCp_GotFocus(Index As Integer)
txtCampo(Index).BackColor = &HFFC0C0
txtCampo(Index).GotFocus
End Sub

'evento - quando o campo perder o foco
Private Sub txtCp_LostFocus(Index As Integer)
txtCampo(Index).BackColor = &H80FFFF
txtCampo(Index).LostFocus
End Sub