在vba子执行期间在窗体上显示加载gif

我试图在长时间的子例程执行期间（特别是在窗体的按钮单击事件中触发sub）将动画加载gif放到窗体上，结果在MS Access中非常困难

我已经将我的gif动画放在表单上，链接到ActiveX Web浏览器控件（在下面的示例中称之为

loadingGif

）。事实证明，这样做很简单：

Private Sub someButton_Click()
    loadingGif.Visible = True
    '... hard stuff here ...
    loadingGif.Visible = False
End Sub

失败，因为在子例程执行期间屏幕未刷新，因此用户从未看到

加载GIF

控件。在单个子例程执行期间，是否有任何方法使其可见

此外：

我知道可以创建一个动画模式弹出表单，但这不是我的想法

我已经使用了沙漏，但是表单上的图标看起来更吸引人

---

在[hard stuff here]执行部分的某个时候，尝试调用

DoEvents

，看看它是否会使GIF移动。@silentsurfer，这不起作用。调用

DoEvents

有时会使gif可见，有时不会，在任何一种情况下都不会被动画。在[hard stuff here]执行部分的某个时间点调用

DoEvents

，看看它是否会使gif移动。@silentsurfer这不起作用。调用

DoEvents

有时会使gif可见，有时不会，并且在任何一种情况下都不会设置动画