GIF ANIMADO

USUARIO.EXCLUIDOS 10/12/2003 17:15:28
#596 Resposta escolhida

A proposta mais simples que tenho é com um objeto WebBrowser: coloque um desses no seu form, e o código:

Private Sub Form_Load()
Dim fname As String

' Get the filename.
fname = App.Path
If Right$(fname, 1) "\" Then fname = fname & "\"
fname = fname & "clip.gif"

' Display the GIF.
WebBrowser1.Navigate fname
End Sub

Substitua "clip.gif" pelo nome do seu gif