在vb中如何实现以下功能？
在程序运行时，弹出一个对话框，显示“程序正在处理数据，请耐心等待”，待处理完毕后，此对话框自动消失，然后弹出“程序运行结束，请查看结果”

请给予指点，谢谢了

就把一个窗体show出来，任务结束把窗体关闭就行了。(建议把鼠标样式换成忙的状态就行了，任务完成把鼠标再换回正常状态，突然砰出一窗体来，把人都给吓坏了)

能不能不要用窗体？而只用对话框 MsgBox可以实现吗？

那也是蹦一窗体出来啊，把人都吓坏了，你看windows运行程序忙的时候，不都是鼠标变成 漏斗 ，忙的状态吧，等忙完了，又变成正常的指针了

谢谢
设置鼠标为漏斗状是用 MousePointer = 11吧？ 然后运行完了用 MousePointer = 99？
可是为何我这样写了之后，程序运行中并不是一直稳定的象windows系统那样漏斗呈现？

添加一个窗体(命名为 a)，里面放一个载入了漏斗图片的 Image 控件，把窗口调整到 Image 控件大小，把窗体的 Border-Style 设成 0 - None。在程序运行时，写:
Load a
a.Show 0, Me

在程序结束运行时，写: Unload a

MsgBox
是可以D～
不过要用API～把句柄设置为NULL就可以了～还有，把它的“×”和按钮都不可用才OK～

不好意思，请问哪里可以找到 漏斗 的图片呢？

如果用窗体的话,MousePointer = 11是漏斗,MousePointer = 0是正常剪头,MousePointer = 99是自定义的。
如果用msgbox的话可以看下面的代码参考:
http://www.codesky.net/article/doc/200308/2003082688748863.htm