Visual Basic - Ayuda para insertar GIF

Hola como andan?? mi problema es el siguiente, el gif lo puedo agregar pero no me queda activo, es decir que cuando arranca otra tarea o funcion se queda trabado o no se ve, como hago para que se vea siempre?? muchas gracias.

Donde estes ejecutando el proceso que hace que la Imagen se queda inactiva, inserta en el proceso DoEvents, ejemplo utilizo el componente marchoso y en un ciclo pongo el DoEvents para que se este ejecutando la imagen:
Private Sub Command1_Click()
For i = 1 To 1000000
DoEvents
Next i
MsgBox "Terminado"
End Sub
Private Sub Form_Load()
Marchoso1.FileName = "C:\PROYECTOS\welcome.gif"
End Sub