点击TEXTbox时能不能让某个变量值为常量
如：鼠标点击TEXT1的时候，比如我有一变量“one"让它变为1
Private Sub Text1_GotFocus()
Dim one As Integer
one = 1
End Sub
或者判断光标是否在TEXT，如果在，那么“one”=1 否侧“one”=0.

Dim one As Integer
Private Sub Text1_GotFocus()
one = 1
End Sub

取消  Dim one As Integer 这一行
将 one 定义为全局变量，在其它控件就可以得到它的值
即将  Dim one As Integer 这一行写到代码窗口的通用_声明中