Progressbar Vb6

[viviana75]

E' stato creato un programmino per scaricare file da internet.
Il problema è, che mentre sta scaricando vorrei far comparire una finestra o qualsiasi altra cosa tipo una progressbar in maniera che l'utente capisce che è in corso il download.
NOTAer questo progetto è stato usato Inet1 di vb6.
Mi potete dare suggerimenti.

[Boldan]

1) Imposti la dimensione massima della progressBar con la dimensione del file da scaricare (PrograssBar1.Max= DimensioneFile.
Con un oggetto timer (TimerFTP, ogni x millisecondi puoi controllare la dimensione del file che stai scaricando via ftp. e imposti la proprietà value della progressBar:

Private Sub TimerFTP_Timer()
On Error Resume Next
Dim fso as New FileSystemObject
Dim Fil As File
Set Fil = fso.GetFile(FTPAggDir & "\" & FTPDoc)
ProgressBar1.Value = Fil.Size
End Sub

Spero sia chiaro. Fammi sapere.
Ciao!!