同志们，我找到了一种变通的处理方法，从网上找的哈：
用flash做一个计时器动画jsq.fla，以秒为单位进行累加的计时器，然后封装成一个类jsq.vcx
SET CLASSLIB TO jsq.vcx
IF varTYPE(thisform.my)="O"
   thisform.RemoveObject("my")
ENDIF
thisform.AddObject("my","jsq2")
thisform.my.visible=.t.
thisform.my.playing= .T.
thisform.my.SetFocus
……此处是我的按钮1-30 很费时，结束后再执行最后一句
thisform.my.stop
但执行结果不理想，好像要滞后两三秒中