Interval计时器

Question

http://iask.sina.com.cn/b/4835329.html
vb小问题,如何让text里的内容动起来? 
在下面程序中没有Interval，Interval是在属性中设置．请问，各位大侠的问题是Interval在下面程序起到什么作用？谢谢．Private Sub cmdstart_Click() 
Select Case cmdstart.Caption 
Case "开始" 
Timer1.Enabled = True 
cmdstart.Caption = "停止" 
Case "停止" 
Timer1.Enabled = False 
cmdstart.Caption = "开始" 
End Select 
End Sub Private Sub Timer1_Timer() 
Dim i As Integer 
i = Val(Text1.Text) + 1 
If i <= 1000 Then 
Text1.Text = Str(i) 
Else 
i = 1000 
End If 
End Sub 

Answer 1

Interval设置timer触发的时间间隔，在这里决定变化的快慢，你修改Interval的值就会看到效果

Answer 2

Private Sub cmdstart_Click() 
Select Case cmdstart.Caption 
Case "开始" 
Timer1.Enabled = True 
Timer1.Interval = 200
cmdstart.Caption = "停止" 
Case "停止" 
Timer1.Enabled = False 
cmdstart.Caption = "开始" 
End Select 
End Sub