[VB] colorare i text

[FinalFantasy]

Private Sub text1_GotFocus()
text1.BackColor = vbRed
End Sub

Private Sub text1_LostFocus()
text1.BackColor = vbWhite
End Sub