是否可以在VB6.0中取消长时间运行的进程，而不使用DoEvent？
例如：
for i = 1 to someVeryHighNumber
' Do some work here '
...
if cancel then
exit for
end if
next
Sub btnCancel_Click()
cancel = true
End Sub
我假设我需要一个“DoEvents”之前的“如果取消然后…”有更好的方法吗？有一阵子了…
不，你说得对，你肯定想要你的循环中的DoEvents。
如果将DoEvents放在主循环中，发现处理速度太慢，请尝试调用Windows API函数GetQueueStatus(这比DoEvents快得多)来快速确定是否有必要调用DoEvents。 GetQueueStatus告诉你是否有任何事件要处理。
' at the top:
Declare Function GetQueueStatus Lib "user32" (ByVal qsFlags As Long) As Long
' then call this instead of DoEvents:
Sub DoEventsIfNecessary()
If GetQueueStatus(255) <> 0 Then DoEvents
End Sub