當TextBox得到焦點時（GotFocus）改變文本顏色，失去焦點時（LostFocus）將還原文本顏色，F(xiàn)oreColor是設置文本的前景色。

'當光標移到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的背景色。