Mensaje enviado por "Pedro Delgado" <pdn@retemail.es>
'XGIF.OCX
XGIF1.OpenGiffile ("C:\MiDirectorio\MiGif.gif")
XGIF1.Show
' MARCHOSO.OCX
Marchoso1.filename = ("C:\MiDirectorio\MiGif.gif")
Marchoso1.Visible = True
Marchoso1.GifLoop = True
Espero que te sirva.
Un abrazo
Pedro.