How To Make a GIF to Your Application

‘code
Private Sub Form_Load()
Dim loc As String
Dim Source As String
loc = App.Path & “\image.gif”
Picture1.Visible = False
Picture1.AutoSize = True
Picture1.Picture = LoadPicture(loc)
Animation.Width = Picture1.Width
Animation.Height = Picture1.Height
Source = “about:” & “” & “” & ““
Animation.Navigate Source
End Sub