Yo lo hago de la siguiente forma, si no tienes algún OCX que haga el trabajo por tí:
Con un programa que te descomponga el GIF en todas sus imágenes (Animation Pro, que viene con las últimas versiones del Paint Shop Pro, p.e.), guardas todas las imágenes por separado (JPG o con algún tipo de imagen que reconozca el VB).
Insertas varios controles Image que formen una matriz, y en cada uno de ellos una imagen de la secuencia (procura que sea en orden).
Inserta un Timer Enabled=false e Interval=500 p.e.
Todas las imagenes Visible=false
Y aquí yo lo he hecho con dos botones pero donde quieras:
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
DoEvents
Timer1.Enabled = True
Image1(0).Visible = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
For i = 0 To 3
If Image1(i).Visible = True Then
Image1(i).Visible = False
End If
Next i
End Sub
Private Sub Timer1_Timer()
For i = 0 To 3
If Image1(i).Visible = True Then
If i = 3 Then
Image1(0).Visible = True
Image1(3).Visible = False
Else
Image1(i).Visible = False
Image1(i + 1).Visible = True
Exit For
End If
End If
Next i
End Sub
Espero que te valga. Un saludo