Visual Basic - NECESITO AYUDA PARA INSERTAR GIF

HOLA!
COMO PUEDO INSERTAR IMAGENES TIPO GIF A UN PROYECTO EN VISUAL BASIC 6.0 YA QUE CUANDO SE CORRE EL PROYECTO NO SE VE EL MOVIMIENTO, ME PODRIAN AYUDAR????

hola.. utiliza esta Ocx.

http://rt000z51.eresmas.net/activex/marchoso.html

saludos..

prueba esto para cargar una imagen a tu control..

Private Sub Command1_Click()

Marchoso1.FileName = "C:\Tu_Imgen.gif"

End Sub

¿Necesiatas poner todo por duplicado para hacerte oir?
O quizá ¿no sabes como funciona un foro?

solo fue un error del explorer, por darte una respuesta, aunque no creo que te la deba dar.. no crees.??.el proposito era intentar ayudar y no a CRITICAR un error de mi explorador.. espero..que entiendas..

Te copio el texto de un mensaje que envié hace meses (así te ahorras el buscarlo) para el Marchoso.ocx y el AniGif.ocx

Marchoso.ocx:
Lo añades a Componentes y pon y en el formulario que desees:
Autosize = True ' El control se ajuste automáticamente al tamaño de la imagen. Filename= "C:\MiCarpeta\MiMarchoso.gif
GifLoop= True ' Reproduce la animación
GifLoop= False ' Para la animación

Ejemplo:
Private sub Form_Activate ( )
Marchoso1.Filename=App.Path & "/mi.gif
Marchoso1.GigLoop= True
End sub

AniGif.ocx:
Autosize= True ' se adapta al tamaño de la animación

Stretch indica el ajuste y puede ser:
0 sin ajuste, 1 ajuste total, 2 ajuste proporcional

Sequence indica el orden en que se mostrarán las imágenes de las que se compone la animación, los valores pueden ser:
0 la animación se reproduce en su secuencia normal
1 la animación se reproduce al revés
2 la secuencia se reproduce como si fuera el ping pong
3 las imágenes se reproducen según la secuencia establecida en la propiedad SequenceString: en esta propiedad indicaremos el orden de las imágenes separadas por comas

Loop: veces que se ejecutará la animación.
0 se ejecutará de forma indefinida.

Speed: velocidad a la que se reproducirá la animación y los valores pueden ser:
1 velocidad norma
2 mitad de velocidad

ReadGif : ruta del archivo gif
Play: inicia la animación.
Stop: la detiene.

Ejemplo:
Private sub Form_Activate (
AniGIF1.ReadGIF(App.Path & "/mi.gif ")
AniGIF1.AutoSize= True
AniGIF1.Play
End Sub

Un saludo