VB 文本框内字符滚动效果

窗体中有一个计时器（初始enabled=false），一个按钮，一个文本框

代码如下：

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Dim a As Integer
a = 1
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
If a < 9 Then
Text1.Text = Left("123456789", a)
a = a + 1
Else
Text1.Text = "1"
a = 1
End If
End Sub

不知道什么地方出错了，请大虾指点一下，谢谢！

你的a是在Form_Load中定义的，a就是Form_Load过程的局部变量，在Form_Load之外是不能访问的。应该将a定义成Form的成员变量

'----------改成这样的---------------

Private a As Integer 'a应该是Form的成员变量，不能是Form_Load
'过程的局部变量

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
a = 1
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
If a < 9 Then
Text1.Text = Left("123456789", a)
a = a + 1
Else
Text1.Text = "1"
a = 1
End If
End Sub

在代码的最前面加上dim a as integer,而不是放在form_load中。
Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
a = 1
End Sub

Private Sub Timer1_Timer()
Text1.SetFocus
If a < 9 Then
Text1.Text = Left("123456789", a)
a = a + 1
Else
Text1.Text = "1"