Отображение прогресса скачивания файла не срабатывает во второй раз

Public Class Form1
    Dim WithEvents wc As New System.Net.WebClient
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  If Dir("Metin-2PvP Updater.exe") <> "" Then
            IO.File.Delete("Metin-2PvP Updater.exe")
        End If      
 ProgressBar1.Value = 0
        Try
           wc.DownloadFile("http://patcher.m-2pvp.ru/Metin-2PvP.exe", IO.Path.GetDirectoryName(Application.ExecutablePath) & "/Metin-2PvP Updater.exe")
    Catch ex As Exception
           MsgBox(ex.Message)
       End Try
    End Sub
    Private Sub wc_up(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged
      ProgressBar1.Maximum = e.TotalBytesToSend \ 1024
       ProgressBar1.Value = e.BytesSent \ 1024
       If ProgressBar1.Value = ProgressBar1.Maximum Then
           MsgBox("Файл загружен")
      End If
End Sub
End Class

wc.DownloadFile

wc.UploadProgressChanged

Private Sub wc_up(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged

Private Sub wc_down(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wc.DownloadProgressChanged

ProgressBar1.Maximum = e.TotalBytesToSend \ 1024
ProgressBar1.Value = e.BytesSent \ 1024

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