hit Esc key to stop VBA program smoothly during long processing

[superjoe]

it's a general question, hope you guys don't mind to give a hint, thanks.

by using following code, i have to set trapper of UserEscaped() to all over my program, is there a better or easy way?

Public Const VK_ESCAPE = &H1B
Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Public Function UserEscaped() As Boolean
If GetAsyncKeyState(VK_ESCAPE) Then UserEscaped = True
End Function

[pvictor]

You mght look at the discussion of DOEVENTS in Help or in most comprehensive books on VB.

Victor