Good afternoon.
ErrorSys is notquittin in the command QUIT, then, I modificated it 
inserting the lines below:

QUIT   <=== it does not quit here
do While .t.
    oThread    := ThreadObject()
    if oThread == NIL
       exit
    endif
    oThread:setInterval(NIL)
enddo
RETURN .f.

Can somebody tell me whi it goes to the end and does not quit or to show 
me how to do it quits?

eling
Best regards