6、当光标移到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的背景色。要指定一个字符的话,加些IF进去