Private Sub UserForm_Initialize()
Dim Gif As String
WebBrowser1.Navigate Gif
End Sub
Private Sub CommandButton_Start_Click()
Dim Gif As String
Gif = ThisWorkbook.Path & "\image.gif"
WebBrowser1.Navigate Gif
End Sub
Private Sub UserForm_Activate()
WebBrowser1.Document.bgColor = RGB(0, 0, 0)
End Sub