Imports System.Net
 
' ...
 
Private c As New WebClient()
AddHandler c.DownloadProgressChanged, AddressOf ProgressCahnged
AddHandler c.DownloadFileCompleted, AddressOf DownloadComplete
 
Public Sub DownloadFile(ByVal urlToFile As String, ByVal filename As String)
   c.DownloadFileAsync(urlToFile, filename)
End Sub
 
Private Sub ProgressChanged(ByVal sender As Object, ByVal e As _
  DownloadProgressChangedEventArgs)
   StatusLabel.Text = StringFormat("{0}% der Datei gedownloaded.", _
   e.Progresspercentage)
End Sub
 
Private Sub DownloadComplete(byVal sender As Object, ByVal e As _
  AsyncCompletedEventArgs)
   MessageBox.Show("Download abgeschlossen!")
End Sub

Ralf