Private WithEvents MyClient As Net.WebClient
    Private Sub DownloadItem(ByVal sURL As String, ByVal strFile As String, _
      ByVal strFolder As String)
        MyClient = New Net.WebClient
        ProgressBar1.Value = 0
        MyClient.DownloadFileAsync(New Uri(sURL), IO.Path.Combine(strFolder, _
          strFile))
    End Sub
    Private Sub MyClient_DownloadProgressChanged(ByVal sender As Object, ByVal _
      e As System.Net.DownloadProgressChangedEventArgs) Handles _
      MyClient.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub
 Private Sub MyClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As _
   System.ComponentModel.AsyncCompletedEventArgs) Handles _
   MyClient.DownloadFileCompleted
        ProgressBar1.Value = 0
        MessageBox.Show("Die Datei wurde erfolgreich heruntergeladen", _
          "Dateidownload", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub