Visual Basic 6 - Creare una Progress Bar Funzionante

Ho scaricato il componente XP CONTROLS.ocx che mi da una ProgressBar in stile Windows Xp.
Ora il mio programma appena avviato fa cio:

Private Sub Timer1_Timer()
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
Timer1.Interval = 0
MsgBox "OK COPIATO"
 ff = FreeFile

End Sub

ovviamente lo fa con file diversi e ci mette un po di tempo. vorrei che la progress barr si caricasse man mano che compie le operazioni, dal momento che le compie in modo sequenziale, ovvero se sta scaricando il file 1 non inizia il 2 ma aspetta che finisce l'1.

ricapitolando il tuo programma scarica uno dopo l'altro i file e tu vuoi mostrare nella progress bar a che punto siamo...

Allora, per far ciò conto le righe:

DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '2
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '3
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '4
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '5
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '6
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file" '7

ok, 7 righe, allora prima di tutte queste chiamate a DownloadFile scrivi ProgressBar1.Max = 7 e dopo ogni riga scrivi ProgressBar1.Value = ProgressBar1.value + 1 o direttamente il numero della riga...

esempio:

ProgressBar1.Max = 7
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
DownloadFile "http://mioserver.it\miofile.file", "c:\miofile.file"
ProgressBar1.Value = ProgressBar1.value + 1
msgbox "fine!"
ecc..

grazie