Ketika TextBox mendapat fokus (GotFocus), ia mengubah warna teks. Ketika kehilangan fokus (LostFocus), ia mengembalikan warna teks.
'Saat kursor berpindah ke TextBox, teks diatur menjadi merah
Sub Teks Pribadi1_GotFocus()
Teks1.Warna Depan = vbMerah
Akhiri Sub
'Saat kursor keluar dari TextBox, teks diatur menjadi hitam
Sub Teks Pribadi1_LostFocus()
Teks1.Warna Depan = vbHitam
Akhiri Sub
Kode di atas hanya perlu mengubah Text1.ForeColor menjadi Text1.BackColor untuk mengubah warna background TextBox.