Imports System
Imports System.Net
 
Public Class FormDownload
    Private WithEvents wClient As New WebClient
 
    ' Download starten
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ProgressBar1.Visible = True ' Progressbar anzeigen
        Label1.Visible = True       ' Download-Fortschritt anzeigen
        Button2.Enabled = True      ' Button2 (Download Abbrechen) einschalten
        Button1.Enabled = False     ' Button1 (Start Download) ausschalten
 
        ' Start Download
        wClient.DownloadFileAsync(New Uri( _
          "http://www.kernel.org/pub/linux/kernel/v2.4/linux-2.4.37.tar.bz2"), _
          "C:\linux-2.4.37.tar.bz2")
    End Sub
 
    ' Download abbrechen
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        wClient.CancelAsync()
    End Sub
 
    ' Download fertig
    Private Sub wClient_DownloadFileCompleted(ByVal sender As Object, ByVal e _
      As System.ComponentModel.AsyncCompletedEventArgs) Handles _
      wClient.DownloadFileCompleted
        ' Steuerelemente zurücksetzen
        ProgressBar1.Visible = False
        Label1.Visible = False
        Button2.Enabled = False
        Button1.Enabled = True
 
        ' Meldung, wenn Download abgebrochen wurde
        If e.Cancelled Then
            MsgBox("Download wurde abgebrochen")
            Return
        End If
 
        ' Meldung, wenn Fehler aufgetreten ist
        If e.Error IsNot Nothing Then
            MsgBox(e.Error.Message)
            Return
        End If
 
        ' Meldung für erfolgreichen Download
        MsgBox("Download erfolgreich.")
    End Sub
 
    ' Während des Downloads
    Private Sub wClient_DownloadProgressChanged(ByVal sender As Object, ByVal e _
      As System.Net.DownloadProgressChangedEventArgs) Handles _
      wClient.DownloadProgressChanged
        ' Progressbar-Wert ändern
        ProgressBar1.Value = e.ProgressPercentage
 
        ' Downloadfortschritt in Label ausgeben
        Label1.Text = e.ProgressPercentage & " % fertig - " & e.BytesReceived & _
          "/" & e.TotalBytesToReceive
    End Sub
 
 
End Class