Salve, vorrei inserire nella mia funzione per fare l'upload tramite ftp una progress bar per verificare lo stato in percentuale dei byte del file caricati progressivamente sul server:

codice:
    Public Function UploadFile(ByVal Path As String, ByVal LocalPath As String, ByVal Name As String)
        Dim _fileName As String = LocalPath + "\" + Name
        Dim _File As FileInfo = New FileInfo(_fileName)

        _FtpRequest = CType(WebRequest.Create("ftp://" + _Host + Path + Name), FtpWebRequest)

        _FtpRequest.Credentials = New NetworkCredential(_UserName, _Password)
        _FtpRequest.Method = WebRequestMethods.Ftp.UploadFile
        '_FtpRequest.EnableSsl = _UseSSL

        Dim _fileContents(_File.Length) As Byte

        Dim fr As FileStream = _File.OpenRead()

        fr.Read(_fileContents, 0, Convert.ToInt32(_File.Length))

        fr.Close()

        Dim writer As Stream = _FtpRequest.GetRequestStream()

        writer.Write(_fileContents, 0, _fileContents.Length)
        My.Forms.ftp_form.ProgressBar1.Maximum = _fileContents.Length
        My.Forms.ftp_form.ProgressBar1.Minimum = 0
        

        'Come faccio a valorizzare "ProgressBar1.Value" con i byte caricati progressivamete??
        My.Forms.ftp_form.ProgressBar1.Value = 
       
        writer.Close()
        Return "File caricato"

    End Function
Come faccio a valorizzare "ProgressBar1.Value" con i byte caricati progressivamete??
My.Forms.ftp_form.ProgressBar1.Value = ?????????
-----

Grazie Mille