Cuando TextBox obtiene el foco (GotFocus), cambia el color del texto. Cuando pierde el foco (LostFocus), restaura el color del texto.
'Cuando el cursor se mueve al cuadro de texto, el texto se establece en rojo
Subtexto privado1_GotFocus()
Texto1.ForeColor = vbRojo
Subtítulo final
'Cuando el cursor sale del TextBox, el texto se pone en negro
Subtexto privado1_LostFocus()
Texto1.ForeColor = vbNegro
Subtítulo final
El código anterior solo necesita cambiar Text1.ForeColor a Text1.BackColor para cambiar el color de fondo de TextBox.