Visual Basic 6 - Inserimento "progress bar" e "msgbox" nella copia

ciao a tutti!!!
ecco il codice del mio programma:

If ceckdocumenti Then x = CopyFile("C:\Documents and Settings\" & txt & "\documenti", lbl, True, True)
If ceckdesktop Then x = CopyFile("C:\Documents and Settings\" & text & "\desktop", label, True, True)
If Not x Then MsgBox "Errore.!", vbCritical, "Errore di copia"

vorrei inserire nel mio programma una progress bar
che mi indica lo stato della copia mentre la fa;
come fare???

oltre a questo, vorrei inserire un msgbox che mi avvisa quando la copia è finita.
Come fare???
grazie moltissimo

Ciao, per inserire una progressbar devi sapere lo stato d'avanzamento della copia, quindi non è possibile farlo con filecopy.

Tuttavia è possibile farlo aprendo il file da copiare in binario, leggerlo e scriverlo passo dopo passo nel file di destinazione

Questa potrebbe essere una soluzione abbastanza lenta che è possibile velocizzare



Open NOMEFILESORGENTE For Binary As #1
Open NOMEFILEDESTINAZIONE For Binary As #2
Lungezza = FileLen(NOMEFILESORGENTE)
For Posizione = 1 To Lunghezza
Get #1, Posizione, d
Put #2, Posizione, d
Next Posizione
Close #2
Close #1

la variabile Posizione indica lo stato di avanzamento della copia....Ciao e fammi sapere

scusami ma mi puoi spiegare meglio come inserire il codice nel mio programma????
(nn sono molto pratico ancora)