Public Class Form1
    Private WithEvents downloader As Net.WebClient
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        downloader = New Net.WebClient
        WriteToServerLog(" FileTransfer wird gestartet..")
        downloader.DownloadFileAsync(New Uri("Dein Server"), "Dein File")
    End Sub
 
    Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal _
      e As System.ComponentModel.AsyncCompletedEventArgs) Handles _
      downloader.DownloadFileCompleted
        ProgressBar1.Value = 0
        WriteToServerLog(" FileTransfer Erfolgreich beendet !")
    End Sub
 
    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, _
      ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles _
      downloader.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
    End Sub
End Class

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus