类似摇奖,中奖程序!各位有兴趣的兄弟都来支持一下,兄弟在线急等!

有一个按钮Command1,一个文本框text1:
Command1单击事件:
Private Sub Command1_Click()
 if Command1.Caption = "开 始" Then
   Command1.Caption = "停 止"
   For i = 1 To 10000
       text1.text = i + 1
       DoEvents
       Sleep 10
   Next i
ElseIf Command1.Caption = "停 止" Then
       text1.text = i
end if   
End Sub
    
   我的想法:当按钮显示"开始"时,点击按钮,按钮显示"停止",循环开始,文本框不断显示数字的变化,当在文本变化过程中,再次点击Command1,这时i可能等于=5000,然后把5000一直显示在Text1中显示!就好像是电脑摇奖一样,很多号都在不断显示,在显示的过程中,安回车就会在文本中显示中奖的号码!   但是我现在的问题是:当再次点击Command1时,会有一个停顿显示5000,但是马上又开始继续计算了,重复上面那个循环!我怎么能终止循环,只响应选中数字的那段程序呢?
 
   沈阳的兄弟请吃饭!兄弟在这里先谢了!在线急等!