Загрузка файла на ftp с отображением прогресса

    Sub UpLoad(ByVal FileName As String, ByVal Address As String, ByVal Folder As String)
        ProgressBar1.Value = 0
        Try
            wc.UploadFileAsync(New Uri("ftp://" & Address & "/" & Folder & "/" & TextBox3.Text), FileName)
        Catch ex As Exception
            Sound(1, ErrorToString())
        End Try
    End Sub
 
    Private Sub wc_up(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToSend \ 1024
        ProgressBar1.Value = e.BytesSent \ 1024
        Label6.Text = "Отправлено килобайт: " & e.BytesSent \ 1024 & " из " & e.TotalBytesToSend \ 1024
    End Sub

Dim WithEvents wc As New System.Net.WebClient

wc.Credentials = New System.Net.NetworkCredential("Login", "Password") ' За место "Login" напиши свой логин, а за место "Password" напиши свой пароль.