Dim Ftp As System.Net.FtpWebRequest = Net.FtpWebRequest.Create("ftp://nomeserver/nomefolder/nomefile")
            Ftp.KeepAlive = False
            Ftp.Credentials = New System.Net.NetworkCredential("username", "password")
            Ftp.UseBinary = True
            Ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile
            Dim response As System.Net.FtpWebResponse = Ftp.GetResponse
            Dim responseStream As IO.Stream = response.GetResponseStream
            Dim fs As New IO.FileStream(tmpFile, IO.FileMode.Create)
            Dim buffer(BufferSize) As Byte
            Dim read As Integer = 0
            Do
                read = responseStream.Read(buffer, 0, buffer.Length)
                fs.Write(buffer, 0, read)
            Loop Until read = 0
            responseStream.Close()
            responseStream.Dispose()
            fs.Flush()
            fs.Close()