在执行计算时在Userform WebBrowser中播放GIF的问题求助

• 核心问题：工作簿执行计算时，Userform中的WebBrowser控件仅显示GIF的第一帧，计算完成后GIF才开始正常播放，无法实现动画与计算过程同步。
• 次要问题：计算完成后已执行Unload语句，但Userform仍无法关闭。

现有代码 #

UserForm1 代码 #

Private Sub UserForm_Initialize()
    With Me.WebBrowser1
        .Navigate "https://media.tenor.com/hKsgsuQ5N8MAAAAC/cymbals-monkey-brain.gif"
    End With
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.body.Scroll = "No"
End Sub

按钮代码 #

Sub Button1_Click()

    With New UserForm1
        .Label1.Caption = "Calculate while GIF plays"
        .Show vbModeless
    End With
    
    DoEvents
    
    For ii = 1 To 200
        Calculate
    Next ii
    
    Unload UserForm1

End Sub

内容的提问来源于stack exchange，提问作者Lee Logan