我想实现当我的程序在运行过程中，出现一个提示框，显示“程序正在运行中，请稍后。。。”，程序运行后显示结果，请高手指教。

Sub auto_open(Q)
With UserForm3

.Show 0

  For I = 1 To Q

.Label3.Width = Int(I / Q * 285)

.Label4.Caption = CStr(Int(I / Q * 100)) + "%"

DoEvents

Next I

End With

End Sub

我用的是主程序调用上面的代码，但是运行到show 0,就返回到主程序了。

cad vba 是不是没有show 0类似的功能啊，怎样才能实现这种功能啊？请高手指教