如何在Excel中创建状态对话框

我在Excel中创建了一个数据库报告生成器.我正在尝试创建一个对话框,在程序运行时显示状态信息.

当我生成报告时,虽然出现了对话框,但我无法刷新/更新它显示的信息.大多数情况下,对话框仅部分显示.我试过使用.repaint方法,但我仍然得到相同的结果.生成报告后,我只看到完整的对话框.

尝试在循环中添加DoEvents调用.这应该允许表单重新绘制并接受其他请求.