Private WithEvents wc As Net.WebClient
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button.Click
        Me.Cursor() = Cursors.WaitCursor
 
        'Download von Dateien aus dem Internet keine Hürde mehr.
        ' WebClient-Objekt erzeugen
        Dim wc As System.Net.WebClient = New System.Net.WebClient
        ProgressBar1.Value = 0
 
        ' WebClient-Objekt erzeugen
        Dim wc As System.Net.WebClient = New System.Net.WebClient
        'was soll runtergeladen werden
        Dim f As String = "url"
        'wo soll der file gespeichert werde
        Dim s As String = "file.txt"
 
 
        ' Datei per WebClient herunterladen und lokal abspeichern
        Try
            wc.DownloadFile(f, s)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
        Me.Cursor() = Cursors.Default
 
    End Sub
 
    Private Sub MyClient_DownloadProgressChanged(ByVal sender As Object, ByVal _
      e As System.Net.DownloadProgressChangedEventArgs) Handles _
      wc.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub