VB6.0中如何在原数上加1？

VB6.0中如何在原数上加1？

窗体中加入一个Text1和一个Command1

Private Sub Command1_Click()
Text1.Text = Format(Val(Text1.Text) + 1, "000000000000000000000")
End Sub

如果是要自动加，就要改用Timer控件
追问：获取Text1输入的数，一直加1怎么搞？
比如创建一个Text1，和2个Command，按Command1开始加，按Command2停止，怎么搞？
求大神解
追答：你这个一直加总得有个时间间隔吧？比如1秒钟加一次？还是10秒钟加一次？下面的例子是2秒钟加一次的（需要一个Timer控件）：

Private Sub Command1_Click() '开始加1
Timer1.Interval = 2000 '时间间隔为2000毫秒
Timer1.Enabled = True
End Sub

Private Sub Command2_Click() '停止加1
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()'自动加1
Text1.Text = Format(Val(Text1.Text) + 1, "000000000000000000000")
End Sub

不是很明白你的意思，不知下面的代码是否可以满足你的要求，如果问题请追问
Private Sub Command1_Click()
Text1.Text = Text1.Text & "1"
End Sub

Static MyCnt AS Long
MyCnt = MyCnt + 1
Debug.print(Format(MyCnt, "000000000000000000000"))

'把下面的复制到Private Sub Command1_Click()中
'窗体中加入一个Text1和一个Command1
'抱歉刚才我错解了你的意思。
'我还没有时间测试，若有问题请追问
Dim chang1, chang2, h
Dim y As String
Dim p As Object
On Error GoTo x
h = 0
y = Val(Text1.Text)
y = y + Val(Text3.Text)
chang1 = Len(Trim(y))
chang2 = Len(Trim(Text1.Text))
If chang1 < chang2 Then
' c = chang2 - chang1
For p = chang1 To chang2 - 1
' y = Str(y)
y = "0" & y
Next p
Label1.Text = y
Else
Label1.Text = y
End If
h = 1
x:
If h = 0 Then
MsgBox("ERROR", 16, "")
Exit Sub
End If