PB界面响应问题

integer n
sb_interrupt//共享变量
sb_interrupt = false
for n=1 to 3000
yield()
if sb_interrupt then//sb_interrupt 得值在"取消"按钮得clicked事件处理程序中修改
messagebox("调试","用户中断")
sb_interrupt = false
exit
else
.....//
end if
next
"取消"按钮得clicked事件
sb_interrupt = true

谢谢两位大哥，不过，小弟写的存储过程是一个批处理，也就是说在这一个存储过程里，一次执行的运算量就非常得大，这个时候窗口不能响应别的消息，有没有办法在这种情况下响应窗口消息，并且在点“取消”按钮的时候，撤销存储过程做的操作呢？