Visual Basic 6 - Adattare value progressbar ad invio files

Dv far sì ke la "value" della progessbar raggiunga il massimo della value ad ogni invio files..da 1 programma ke ho fatto io.. tipo i download da internet dv mentre scarica il file c'è la progressbar ke aumenta secondo il suo scaricamento..

il codice essenziale ke uso per visualizzare i bystes durante l'invio dei files è questo.. credo ke basti..

Option Explicit

Dim buffer() As Byte
Dim lBytes As Long
Dim temp As String

Private Sub wsTCP_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    On Error Resume Next
  If temp = "OK" Then
    lBytes = lBytes + bytesSent
    lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent"
  End If
End Sub

E quindi ? La domanda non e' chiara o non e' completa ...

io devo far si ke la progressbar raggiunga il massimo della sua VALUE(la su proprietà progressbar1.value=progressbar1.value +1 x es.)..
tipo un codice del genere..
Cioè la progressbar dv aumentare così come aumenta il progresso dell'invio del files..
tipo quando si scarica 1 file da internet, dv esce la finestrella con la progressbar..

Private Sub Form_Activate()
ProgressBar1.Min = 0
ProgressBar1.Max = 100
End Sub
Private Sub wsTCP_SendProgress(Index As Integer, ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    On Error Resume Next
  If temp = "OK" Then
    lBytes = lBytes + bytesSent
    lblStatus = lBytes & " out of " & UBound(buffer) & " bytes sent"
  If lBytes Then ProgressBar1.Value = ProgressBar1.Value + 1
  If ProgressBar1.Value = 100 Then ProgressBar1.Value = 0
  End If
End Sub

Il codice ke ho appena postato è sbagliato..sl x farvi 1 esempio..
Vi allego un immagine comeesempio..

Forse, credo, basta che metti come max la dimensione del file da scaricare in byte, e aggiungi alla progressbar1.value=progressbar1.value + "i byte scaricati"..cosi appena ragiunge il max vuoldire che a finito di scaricare..nn vorrei dire cavolate

Ho già provato prima ke me lo dicessi ma nn funziona..
Qualcuno ha una soluzione..