Lorsque TextBox obtient le focus (GotFocus), il change la couleur du texte. Lorsqu'il perd le focus (LostFocus), il restaure la couleur du texte.
'Lorsque le curseur se déplace vers la TextBox, le texte est défini en rouge
Sous-texte privé1_GotFocus()
Text1.ForeColor = vbRed
Fin du sous-marin
'Lorsque le curseur sort de la TextBox, le texte devient noir
Sous-texte privé1_LostFocus()
Text1.ForeColor = vbBlack
Fin du sous-marin
Le code ci-dessus n'a besoin que de changer Text1.ForeColor en Text1.BackColor pour changer la couleur d'arrière-plan de TextBox.