Mirad a ver si alguien me puede ayudar.

Intento poner un progres bar a mi aplicacion para que vaya en progreso junto con el archivo que me este descargando.

Os pongo el codigo de mi aplicacion para que me digais a ver de que modo lo puedo hacer.

mirad este es el CLIENTE donde quiero colocar el progress bar:

Case "descarga"
       
        On Error Resume Next
       
           
            Put #2, , datos
           
            If Right(datos, 3) = "Fin" Or datos = "Fin" Then
           
                MsgBox "Descarga Finalizada", vbOKOnly
           
                Close #2
               
            End If

   
    End Select

Y os paso el codigo del SERVIDOR:

Case "descarga"
       
            On Error GoTo errores
           
            Dim tamañofile As Long
       
            rutafile = vdatos(1)
           
            Open rutafile For Binary Access Read As #2
            tamañofile = LOF(2)
            ReDim file(tamañofile - 1)
            Get #2, , file
       
            ws.SendData file
            ws.SendData "Fin"
       
        Close #2


Espero que me podais ayudar. Muchas gracias a todos camaradas.