我要终止它！！请大家看看！

[CCL]

我有一程序，希望用键盘控制一个过程，可以随时结束这个过程。
入我有以下语句：
Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Then
setp = 0
For i = 0 To 12
Picture1(iNumber).Visible = False
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 'PauseTime为暂停的秒数
DoEvents
Loop
iNumber = i * 3
Next i
End If
End Sub
希望也在这个过程中用“s”键结束上面的For语句，（我试过关Enabled属性，无效）
请问有何高招？？？SOS!!

[solomon]

dim bStop as boolean
Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
if keycode = vbkeyS then
bStop = true
endif
If KeyCode = vbKey1 Then
bstop = false
setp = 0
For i = 0 To 12
Picture1(iNumber).Visible = False
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 'PauseTime为暂停的秒数
DoEvents
if bstop = true then
exit do
endif
Loop
iNumber = i * 3
DoEvents
if bstop = true then
exit do
endif
Next i
End If
End Sub

[dongdong]

建议你换个方法：
1。最好在KEYUP事件中编写代码，因为如果你按住键盘不放，会连续触发KEYDOWN事件；
2。在按下VBKEY1后，可停止当前记时器，开启另一个记时器，这个记时器的时间间隔为你要暂停的时间，并在这个TIMER的事件中，重新启动原来的记时器，可能要简单一些。

[CCL]

solomon,你的方法我试过了，没用。
注意：我是想结束这个For语句，至于其他就不管了。

[Asima]

Dim b_stop As Boolean

Private Sub MySub()
For i = 0 To 12
Picture1(inumber).Visible = False
Start = Timer ' 设置开始暂停的时刻。
Do While Timer < Start + 3 'PauseTime为暂停的秒数
If b_stop Then Exit For
DoEvents
Loop
inumber = i * 3
Next i
End Sub

Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyS Then
b_stop = True
Else
b_stop = False
End If
If KeyCode = vbKey1 Then MySub
End Sub