Отправка/получение файлов на FTP с прогресс баром - VB

Формулировка задачи:

Добрый день всем! перерыл кучу ресурсов (в том числе) и этот. Но ничего (рабоающего) не нашел. Самое свежее здесь..Разместить файл на папку в FTP сервере Единственный рабоающий пример с получением файлов найден на данном ресурсе http://www.planet-source-code.com/vb...xtCodeId=64914 Однако работа в одну торону, а именно только на загрузку. Может кто-то помочь доработать данный код, предложить другой?

Решение задачи: «Отправка/получение файлов на FTP с прогресс баром»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Long, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Any) As Long
 
Const MAX_PATH As Long = 260&
 
Private Sub Form_Load()
    Dim HRESULT     As String
    Dim ErrNumber   As Long
    
    'например. Код 5 - отаказ в доступе
    ErrNumber = 5
    HRESULT = MessageText(ErrNumber)
    Debug.Print HRESULT
End Sub
 
Private Function MessageText(lCode As Long) As String
    On Error Resume Next
    Const FORMAT_MESSAGE_FROM_SYSTEM As Long = &H1000&
    
    Dim sRtrnCode   As String
    Dim lRet        As Long
 
    sRtrnCode = Space$(MAX_PATH)
    lRet = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, lCode, ByVal 0&, sRtrnCode, MAX_PATH, ByVal 0&)
    If lRet > 0 Then
        MessageText = Left$(sRtrnCode, lRet)
        MessageText = Replace$(MessageText, vbNewLine, vbNullString)
    End If
End Function
                        