Acessando ftp

Acessando arquivos do Correios via FTP

Para muitos programadores, acessar o FTP da empresa Correios de forma automatizada tem pode ser uma labuta e tanta, foi o meu caso em VB6.
Até desisti, mas agora estou migrando os sistemas para vb.net e encontrei muita coisa útil (Frameworks) que facilitam a nossa vida.

Tive alguns problemas no inicio e foram com os exemplo da WEB e do VBMania que chei a conseguir listar os arquivos com a ajuda de um membro do VBMania, o Alevale no tópico ( http://vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=416947&varWorld= ).

Depois tive o problema do download.
Que em outros exemplo também com conseguia o download.
As Questões dos problemas são as mesmas, aqui na empresa se usa um Proxy.
Com os arquivos que preciso, e acho que é o caso da maioria, são só TXT, fiz assim:
Ele abre o arquivo -> Lê o arquivo -> Escreve o arquivo (em um diretório pré selecionado)

Precisaremos de:
1 – Form
1 – ListBox
1 – Botão
2 – Módulos

No Botão:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Cria A lista de arquivos para download
Call GetFileList("ftp://000.000.000.000", "USUARIO_ftp", "SENHA_ftp", "/PASTA_NO_ftp/")

'Faz uma pausa para atualizar a lista (ListBox1)
System.Windows.Forms.Application.DoEvents()

'Faz o Download dos arquivos listados
Call DownloadLista("ftp://000.000.000.000", "USUARIO_ftp", "SENHA_ftp", "/PASTA_NO_ftp/", "Pasta_Destino")

MsgBox("Download concluído.")

End Sub
=====================================================================================================================================
No Modulo1:
Imports System.Net
Imports System.IO

Module Module1

Private m_ftpClient As SimpleFTPClient

Public Function GetFileList(ByVal host As String, ByVal username As String, ByVal password As String, ByVal currentdirectory As String) As List(Of String)

Dim fwr As Net.FtpWebRequest =