Wenn die TextBox den Fokus erhält (GotFocus), ändert sie die Textfarbe. Wenn sie den Fokus verliert (LostFocus), stellt sie die Textfarbe des Texts wieder her.
'Wenn sich der Cursor zur TextBox bewegt, wird der Text auf Rot gesetzt
Privater Untertext1_GotFocus()
Text1.ForeColor = vbRed
Sub beenden
'Wenn sich der Cursor aus der TextBox bewegt, wird der Text auf Schwarz gesetzt
Privater Untertext1_LostFocus()
Text1.ForeColor = vbBlack
Sub beenden
Der obige Code muss nur Text1.ForeColor in Text1.BackColor ändern, um die Hintergrundfarbe von TextBox zu ändern.