是你程序的问题,比如程序中调用了外部应用程序(好象WORD、EXCEL等),但你又要让它在后在运行,不显示出来,就会这样。
加上
Dim TDM As Variant
TDM = DoEvents()
交换控制权试试。