proxy server

[Rustr1957]

Уважаемые господа! Вопрос по соединению с proxy сервером.

Вот программа, работает отлично, соединяется с FTP сервером, но через Proxy, что-то тормозит. Посмотрите, пожалуйста, в чем проблема!

1 Dim hConnection As Long, hOpen As Long, sOrgPath As
2 hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
3 hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PROXY, "192.168.2.36", "8080", 3)
4 hOpen = InternetOpen("API-Guide sample program", HTTP_CONNECT, "login", "password", 0)

5 hConnection = InternetConnect(hOpen, "195.46.105.233", INTERNET_DEFAULT_FTP_PORT, "xxxxx", "xxxxx", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0) 'connect to the FTP server
sOrgPath = String(MAX_PATH, 0) 'create a buffer to store the original directory
6 FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath) 'get the directory
7 FtpSetCurrentDirectory hConnection, "/www/xxxxxx.ru/Reports"

И так далее все прекрасно работает с компьютера, который напрямую подключен в интернет. Строка 3 - соединение с Proxy, строка 4 - login и пароль на Proxy.

С подобными параметрами Total Commander входит на Proxy без проблем.
(строка 3 и 4)
Заранее спасибо!