问个暂停操作恢复操作的问题
我现在有个程序，计算实时的刷新数据，我想以某个事件来触发程序的中停来观察即时数据，
比如以下程序：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   
  Dim i As Integer
  For i = 0 To 5000
  TextBox1.Text = i
  TextBox1.Refresh()
  Next
  End Sub


现在想按Button2，触发中停，本人事件刚接触，上段代码中加入
AddHandler Button2.Click, AddressOf stop1

其中stop1为：
Private Sub stop1(ByVal sender As Object, ByVal e As EventArgs)
  Stop
  End Sub
但是他还是全部循环完了，才stop， TextBox1.Text 里的值是5000，我想要的结果是运行到一半的时候，按暂停，它的值比如是2300等等，如何能做到，再按下，又开始运行的效果

------解决方案--------------------
用Timer吧。
button1启动Timer
Timer中刷新数据
stop1停止Timer