'salva configurações ao sair
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        SaveSetting(APP_NAME, "Settings", "Host", txtHost.Text)
        SaveSetting(APP_NAME, "Settings", "Directory", txtDiretorio.Text)
        SaveSetting(APP_NAME, "Settings", "UserName", txtUserName.Text)
        SaveSetting(APP_NAME, "Settings", "Password", txtPassword.Text)
    End Sub

  'restaura as configurações ao abrir o formulário
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtHost.Text = GetSetting(APP_NAME, "Settings", "Host", "")
        txtDiretorio.Text = GetSetting(APP_NAME, "Settings", "Directory", "")
        txtUserName.Text = GetSetting(APP_NAME, "Settings", "UserName", "")
        txtPassword.Text = GetSetting(APP_NAME, "Settings", "Password", "")
    End Sub

    'evento de arrastar e soltar no listbox
    Private Sub lstArquivos_DragDrop(sender As Object, e As DragEventArgs) Handles lstArquivos.DragDrop
        For Each filename As String In e.Data.GetData(DataFormats.FileDrop, True)
            If Not lstArquivos.Items.Contains(filename) Then
                lstArquivos.Items.Add(filename)
            End If
        Next filename
    End Sub

 Private Sub lstArquivos_DragEnter(sender As Object, e As DragEventArgs) Handles lstArquivos.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

Private Sub btnEnviar_Click(sender As Object, e As EventArgs) Handles btnEnviar.Click
        Static rodando As Boolean = False
        rodando = Not rodando

        If rodando Then
            Me.Cursor = Cursors.WaitCursor

            ' Cria o caminho do arquivo remoto como: ftp://www.myhost.com/public_html/
            Dim caminho_remoto As String = txtHost.Text
            If Not caminho_remoto.ToLower().StartsWith("ftp://") Then
                caminho_remoto = "ftp://" & caminho_remoto
            End If

            If Not caminho_remoto.EndsWith("/") Then caminho_remoto &= "/"

            caminho_remoto &= txtDiretorio.Text

            If Not caminho_remoto.EndsWith("/") Then caminho_remoto &= "/"

            Dim nome_usuario As String = txtUserName.Text
            Dim senha_usuario As String = txtPassword.Text
            Dim numero_arquivos_copiados As Integer = 0

            Do While lstArquivos.Items.Count > 0
                Try
                    EnviaArquivo(lstArquivos.Items(0), caminho_remoto, nome_usuario, senha_usuario)
                    lstArquivos.Items.RemoveAt(0)
                    numero_arquivos_copiados += 1
                Catch ex As Exception
                    MessageBox.Show(ex.Message, "Erro ao Enviar", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Exit Do
                End Try

                Application.DoEvents()
                If Not rodando Then Exit Do
            Loop
            rodando = False

            Me.Cursor = Cursors.Default

            MessageBox.Show("Foram copiado(s) : " & numero_arquivos_copiados & " arquivo(s)",
                "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub

    ' Enviando arquivos
    Private Sub EnviaArquivo(ByVal local_arquivo As String, ByVal caminho_remoto As String, ByVal usuario As String, ByVal senha As String)
        ' Pega o objeto usado para se comunicar com o servidor
        Dim arquivo As New FileInfo(local_arquivo)
        Dim arquivo_remoto As String = caminho_remoto & arquivo.Name

        ' faz uma requisição web
        Dim request As FtpWebRequest = WebRequest.Create(arquivo_remoto)
        request.Method = WebRequestMethods.Ftp.UploadFile

        ' obtem as credenciais do usuário
        request.Credentials = New NetworkCredential(usuario, senha)

        ' Copia o arquivo para um array de bytes
        Dim fonte_stream As New StreamReader(local_arquivo)
        Dim arquivo_bytes As Byte() = Encoding.UTF8.GetBytes(fonte_stream.ReadToEnd())
        fonte_stream.Close()
        request.ContentLength = arquivo_bytes.Length

        ' abre o request stream e escreve os bytes nele
        Dim requestStream As Stream = request.GetRequestStream()
        requestStream.Write(arquivo_bytes, 0, arquivo_bytes.Length)
        requestStream.Close()

        ' verifica  resposta
        Dim resposta As FtpWebResponse = request.GetResponse()
        If Not resposta.StatusDescription.Contains("Arquivo transferido com sucesso") Then
            Dim msg As String = "Erro ao envira arquivo " & local_arquivo & vbCrLf & resposta.StatusDescription
            resposta.Close()
            Throw New Exception(msg)
        End If

        resposta.Close()
    End Sub