Копирование файла с отображением прогресса

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Dim WC As New Net.WebClient
        AddHandler WC.DownloadProgressChanged, AddressOf WC_ProgressChanged
        AddHandler WC.DownloadFileCompleted, AddressOf WC_Complete
        WC.DownloadFileAsync(New Uri("путь к файлу"), "куда копируем")
    End Sub
 
    Sub WC_ProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs)
        ProgressBar1.Value = e.ProgressPercentage
    End Sub
 
    Sub WC_Complete(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs)
        If e.Error Is Nothing Then
            Label5.Text = "file copied"
        Else
            MsgBox(e.Error.ToString)
        End If
    End Sub

Dim streamwriter As New IO.FileStream("куда копируем", System.IO.FileMode.CreateNew, System.IO.FileAccess.Write)
        Dim allbytes() = IO.File.ReadAllBytes("путь к файлу")
            ProgressBar1.Maximum = allbytes.Length - 1
            For i = 0 To allbytes.Length - 1
                streamwriter.Write(allbytes, i, 1)
                ProgressBar1.Value = i
                Application.DoEvents()
            Next i
            streamwriter.Close()

My.Computer.FileSystem.CopyFile("C:\2013.MOV", "D:\2013.MOV", Microsoft.VisualBasic.FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)