ProgessBar

Slt,

Comment utilise t-on la progressbar ??
Avec la fonction : FtpGetFile !!
Pour décomposser la barre et l'incremmeter à chaque fois :)
Aussi que avec une fonction FtpGetFile, comment connaitre le debit de transfert ?

@+ Et Merci bcp

Enfaite j'ai un prog ki télécharge un fichier sur un ftp :

Private Sub BtonFtp_Click(Index As Integer) Screen.MousePointer = 11 Dim n1 As Long, n2 As Long, n3 As Boolean, n4 As Long LbAv = "Ouverture session Internet" DoEvents n1 = InternetOpen("www", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) LbAv = "Connexion serveur FTP" DoEvents n2 = InternetConnect(n1, TxtFtp(0), 21, TxtFtp(1), TxtFtp(2), INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0) LbAv = "Transfert de fichier" DoEvents Select Case Index Case 0 n3 = FtpGetFile(n2, TxtFtp(4), TxtFtp(3), False, INTERNET_FLAG_RELOAD, FTP_TRANSFER_TYPE_ASCII, 0) End Select LbAv = "Fermeture connexion serveur" DoEvents n4 = InternetCloseHandle(n2) If n3 Then LbAv = "Transfert terminé" BtonFtp(0).Enabled = False Text3.Text = Text3.Text & "Téléchargement de terminé !!" & vbCrLf Else LbAv = "Transfert non réalisé" End If Screen.MousePointer = 0 End Sub

Comment faire pour y incrustrer une progresse bar ? Et connaitre la vitesse de téléchargement...

@+ et merci