Using the BackgroundWorker Component

[Tompkins]

BackgroundWorker1_DoWork
        Dim worker As System.ComponentModel.BackgroundWorker = DirectCast(sender, System.ComponentModel.BackgroundWorker)
        Dim lines As String() = FileToArray(My.Computer.FileSystem.CurrentDirectory & "/filelist.txt")
        Dim line As String
        For Each line In lines
            uriSource = New Uri("http://localhost/" & line)
            uriPath = My.Computer.FileSystem.CurrentDirectory & line
            ???For i As Integer = 1 To 100
                worker.ReportProgress(i, "Downloading : " & line)
            ??????Next i
            downloading.DownloadFile(uriSource, uriPath)
        Next line
----------------
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        Me.ProgressBar1.Value = e.ProgressPercentage
        Me.Label6.Text = TryCast(e.UserState, String)
    End Sub

i Would like to know how to make progress bar work with my "for each" line reader for downloading. for example how should i get BytesReceived .
or like

         
ProgressBar1.Maximum = e.TotalBytesToReceive
ProgressBar1.Value = e.BytesReceived

thanks in advance!!