使TextBox控制項獲得焦點時改變字型顏色

當TextBox得到焦點時（GotFocus）改變文字顏色，失去焦點時（LostFocus）將還原文字顏色，ForeColor是設定文字的前景色。

'當遊標移到TextBox時文字設定為紅色

Private Sub Text1_GotFocus()

Text1.ForeColor = vbRed

End Sub

'當遊標移出TextBox時文字設定為黑色

Private Sub Text1_LostFocus()

Text1.ForeColor = vbBlack

End Sub

以上程式碼只要Text1.ForeColor改為Text1.BackColor即可改變TextBox的背景色。