Animated 'GIF' UserForm

[lpumxm3]

Hi All,

Basically I have a user form with the webbrowser that shows my loading screen animation without problems.

Now when I try to combine it with my code, userform shows but animation is static..its not running! Maybe enableevents needs to be = true? I have it to false.. here is the code for the form

Private Sub UserForm_Initialize()
Me.WebBrowser1.Navigate "C:\Users\lpumxm3\Desktop\cool.gif"
End Sub


Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Me.WebBrowser1.Document.Body.Scroll = "no"
End Sub

Private Sub Workbook_Open()
UserForm1.Show vbModeless
End Sub

All of this above is working!

UserForm1.Show vbModeless
DoEvents

'my code

Unload UserForm1

this is where it shows in the code, but animation is not running!

Any help would be appreciated. I ve been searchign around and can't find anything that would work!

Cheers,

Marko