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