>For canceling by any button you must change calculation methods (call DOEVENTS and test any public canceling flag)
>
>If you use ON ESCAPE... you don't need change calculation method.
>
>OK, examples...
>

>* PROCEDURES
>SET ESCAPE ON
>ON ESCAPE RETURN TO MainProc
>DO MainProc
>SET ESCAPE OFF
>ON ESCAPE 
>
>PROCEDURE MainProc
>?"START"
>=ChildProc()
>?"END"
>
>PROCEDURE ChildProc
>DO WHILE .T.
>   ?TIME()
>ENDDO
>

>
>

>* Methods
>SET ESCAPE ON
>ON ESCAPE RETURN TO MainProc
>loObj=CREATEOBJECT("_test")
>
>loObj.MainProc()
>SET ESCAPE OFF
>ON ESCAPE 
>
>
>DEFINE CLASS _test AS CUSTOM
>PROCEDURE MainProc
>?"START"
>=this.ChildProc()
>?"END"
>
>PROCEDURE ChildProc
>DO WHILE .T.
>   ?TIME()
>ENDDO
>
>ENDDEFINE
>

>
>MartinaJ
>

I will give it a try later.

Agnes