Private Sub UploadFTP(ByVal Datei As String, ByVal Dateiname As String, ByVal _
  Ftp As String, ByVal Benutzername As String, ByVal Passwort As String)
 
        ' WebClient
        Upload = New Net.WebClient
 
        ' URL mit Zieldatei
        Dim url As String = Ftp & IIf(Ftp.EndsWith("/"), "", "/") & Dateiname
 
        ' Anmeldedaten am FTP-Server
        Upload.Credentials = New Net.NetworkCredential(Benutzername, Passwort)
 
        ' Datei asnychron uploaden
        Upload.UploadFileAsync(New Uri(url), Datei)
    End Sub
 
    Private Sub Upload_UploadFileCompleted(ByVal sender As Object, _
  ByVal e As System.Net.UploadFileCompletedEventArgs) Handles _
  Upload.UploadFileCompleted
 
        ' Upload beenden
        UpdateProgressBar.Visible = False
        UpdateProgressBar.Visible = False
 
    End Sub
 
    Private Sub Upload_UploadProgressChanged(ByVal sender As Object, ByVal e As _
      System.Net.UploadProgressChangedEventArgs) Handles _
      Upload.UploadProgressChanged
 
        UpdateProgressBar.Value = e.ProgressPercentage
        ToolStripStatusLabel3.Text = "Upload" & " - " & e.ProgressPercentage & _
          "% hochgeladen!"
    End Sub