Colorir Textbox

[Thiagocs]

Bom dia a todoss !!

Criei a seguinte "função" para colorir

Public Sub ColorirTextoEntrada(Colorir As TextBox) 'GotFocus

Colorir.BackColor = &HFFFF& ' Cor referente a amarelo

End Sub

Public Sub ColorirTextoSaida(Colorir As TextBox) 'LostFocus

Colorir.BackColor = &H80000005 'Cor referente a branco

End Sub

e ao clicar no Textbox (GotFocus) chamaeria ela assim

ColorirTextoEntrada Me

Porém da erro, eu não consigo colorir o mesmo textbox que estou usando

Ex:

Textbox = nome

Private Sub nome_GotFocus(Index As Integer)

ColorirTextoEntrada Me 'Vai dar erro

End Sub

Porém se eu colocar para colorir outro textbox Ex: Textbox = telefone

Private Sub nome_GotFocus(Index As Integer)

ColorirTextoEntrada telefone 'por ser outro textbox ele colori

End Sub

alguém sabe me falar como fazer, ou se não tem como fazer mesmo...

A intenção é pintar aonde o usuário está digitando e quando sair do campo voltar a ser branco e pintar proximo que ele estará editando informações

Muito obrigadoo a todoss !!!

[kuroi]

Me chama o formulario e não o textbox. em vez de Me no parametro, passe o nome do textbox. exemplo:

ColorirTextoEntrada Text1