怎么弹出一个提示框,并自动关闭

如何弹出一个提示框,并自动关闭
程序结构是这样的:

Private Sub Command10_Click()
{
  过程1
}
由于过程1执行需要一些时间,所有我想点击按钮后,弹出一个提示框,等执行完毕后再把这个提示框自动关闭掉。
我本来想在过程1前面插入msgbox("正在计算,请稍候"); 发现弹出框框,需要点确定才会继续执行过程1部分。而且也不知道怎么关闭这个弹出的窗口好。改怎么弄啊?


------解决方案--------------------
可以用一个窗口模拟msgbox(),待执行完毕在关闭这个窗口。
------解决方案--------------------
别弹出窗口了,加上进度条吧~~~,人机交互会好点~~~
------解决方案--------------------
可以用窗口来代替对话框,要高效的话,多线程建个窗口来显示
------解决方案--------------------
可以新建一个窗口来模拟,也可以在当前窗口中用图片来模拟