عندما يحصل TextBox على التركيز (GotFocus)، فإنه يغير لون النص وعندما يفقد التركيز (LostFocus)، فإنه يستعيد لون النص.
'عندما يتحرك المؤشر إلى مربع النص، يتم تعيين النص إلى اللون الأحمر
نص فرعي خاص1_GotFocus()
Text1.ForeColor = vbRed
نهاية الفرعية
'عندما يتحرك المؤشر خارج مربع النص، يتم تعيين النص إلى اللون الأسود
نص فرعي خاص1_LostFocus()
Text1.ForeColor = vbBlack
نهاية الفرعية
يحتاج الكود أعلاه فقط إلى تغيير Text1.ForeColor إلى Text1.BackColor لتغيير لون خلفية TextBox.