Private WithEvents Ftp As sevSoft.FTPClient
 
Private Sub Ftp_OnProgress(ByVal sender As Object, ByVal e As _
  sevSoft.FTPClient.ProgressEventArgs) Handles Ftp.OnProgress
   prgBar.Value = e.PercentageComplete
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
   prgBar.Minimum = 0
   prgBar.Maximum = 100
   Ftp = New sevSoft.FTPClient(URI, USER, PASSWORD)
   Ftp.UsePassive = True
   If Not Ftp.FileDownload(Ftp.CurrentDirectory + FILE, "D:\\" + FILE, _
     sevSoft.FTPClient.TransferMode.Binary) Then
      MessageBox.Show("Fehler: " & Ftp.ErrorMessage, "Fehler")
   End If
End Sub