如程序有一个循环处理，需要的时间很长，当用户按下“ESC”键时，跳出循环，怎样实现此功能 ？

判断键盘的keyup事件，当keycode=vbKeyEscape时，终止循环就可以了

在KeyDown事件中判断

   if keycode=vbKeyEscape then
      写你要做的处理
   end if
   即可

Option Explicit
Public ESCKEY As Boolean


Private Sub Command1_Click()
ESCKEY = False
Do While Not ESCKEY

    Cls
    Print Time

    DoEvents

Loop
End Sub

Private Sub Command1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
    ESCKEY = True
End If

End Sub