[VB6] cambiare colore ad un campo di testo

[yyzyyz]

Originariamente inviato da agmama
con quel codice cambia colore ad ogni clik, io invece voglio che ogni volta che nel campo di testo è attivo (quindi quando uno ci può scrivere dentro) sia di un colore, quando è inattivo (quindi quando non ci puoi scrivere perchè è selezionato un altro campo di testo o una qualsiasi altra cosa) diventi di un altro colore.
ho provato con GotFocus ma c'è qualcosa che non va...

Private Sub Text1_GotFocus()
Text1.BackColor = RGB(155, 0, 0)
End Sub

Private Sub Text1_LostFocus()
Text1.BackColor = RGB(255, 255, 255)
End Sub

:master: