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