Gif cargando al copiar archivo, ¿se puede?

[rapbyone]

Amigos, les cuento lo que quiero hacer es copiar archivo y que el tiempo que tome en copiar muestre un gif cargando.

tengo el form1 que se ve así:



al presionar el botón instalar aparece el gif:



use la dll "GIF89.DLL", el problema es como hacer para sincronizar el mostrar la imagen con el tiempo que tome en copiar el archivo. creo que con un control "timer" se podría lograr.

este es el código:

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error Resume Next
'Si bien se carga como un ocx, esta es una dll. La misma copiarla en _
en el directorio de systema de windows para que funcione

Gif89a1.FileName = App.Path + "\cargando.gif"

End Sub


Private Sub Command1_Click()
Gif89a1.Visible = True

FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
End Sub



¿Esto es posible? o alguna forma mas fácil de hacerlo
anexo el source por si alguien me puede ayudar por favor
https://dl.dropboxusercontent.com/s/08qwy0t1yt3dl12/copiar.rar?dl=1&token_hash=AAEoC7NgB-SrfBRDO2ja6HwpKGyGXOIzrcWifjntTn2WdA

Gracias amigos

[79137913]

HOLA!!!

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Gif89a1.Visible = True
FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
Gif89a1.Visible = False
End Sub
agregale eso.

GRACIAS POR LEER!!!

[LeandroA]

hola dudo mucho que eso funcione, ya que FileCopy no creo que sea asicrono, lo mejor seria usar el mismisimo cuadro de window con SHFileOperation , y te ahorras el gif y el ocx,

http://www.recursosvisualbasic.com.ar/htm/listado-api/120-copiar-archivo-progreso.htm