让获得焦点的字段自动改变背景颜色

如果你的控件是文本框，名称为“txt字段”，写如下代码：

Private Sub txt字段_GotFocus()
　Me.txt字段.BackColor = 12632256
End Sub

当中“12632256”是灰色，你可以自己选择希望的颜色，如果想在失去焦点时改为原来的颜色，写如下代码：

Private Sub txt字段_LostFocus()
　Me.txt字段.BackColor = 16777215
End Sub