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

'當(dāng)光標(biāo)移到TextBox時(shí)文字設(shè)置為紅色

Private Sub Text1_GotFocus()
              Text1.ForeColor = vbRed
        End Sub

'當(dāng)光標(biāo)移出TextBox時(shí)文字設(shè)置為黑色

Private Sub Text1_LostFocus()
              Text1.ForeColor = vbBlack
        End Sub

  以上代碼只要將Text1.ForeColor改為T(mén)ext1.BackColor即可改變TextBox的背景色。