PS: Io uso VB6
In verità ho trovato qualcosa per VB5 in rete ma non funziona, non se dovuto al fatto che usa vb6.....
Ecco quelo che ho trovato:
Option Explicit

Private Sub chkAutosize_Click()

gifTest.AutoSize = CBool(chkAutosize.Value)

End Sub

Private Sub chkAutostart_Click()

gifTest.AutoStart = CBool(chkAutostart.Value)

End Sub


Private Sub cmdStart_Click()

gifTest.FileName = txtGifFile
If Not gifTest.AutoStart Then gifTest.Play

End Sub

Private Sub cmdStop_Click()

gifTest.Stop

End Sub

'Gif89a ActiveX Control © Gevorg Ter-Saakov (gtersaakov@sprynet.com)
'Sample by Luca Dormio (ldormio@tin.it)
Private Sub Form_Load()

txtGifFile = App.Path & "\" & "B_los.gif"
gifTest.AutoSize = CBool(chkAutosize.Value)
gifTest.AutoStart = CBool(chkAutostart.Value)

End Sub


Private Sub gifTest_Click()

End Sub