如何在程序在后台处理一些事情时，出现一个提示，让用户知道正在处理，而不能操作其他

Question

    Screen.MousePointer = Hourglass    '变成沙漏
    Screen.MousePointer = Default      '恢复正常

Answer 1

用有模式的窗体来提示应该是最好的解决办法，
同时起到了提示和禁止用户操作的作用。但是vbModal的窗体要到关闭才返回，那么不可能在
开始处理前在正常的步骤中显示它啊？
除非另起一个线程来显示。数据处理完后通知这一线程来关闭它。我对这个问题的解决方式比较简单，是同时做两个
1.显示非模态窗体提示正在处理；
2.鼠标改成沙漏。
封装在一个叫ShowWaiting的全局方法里。
数据操作完了，再调用一个CloseWaiting的方法。其实并不完善，但用户使用了一年多，没在这上面出过漏子。