FTP Application VIA Proxy server

Hi

I have devloped FTP Application.in windows NT.it is working fine but i have a problem.

My problem is my Application is unable to run in other than server. (i.e., in client Mechines)

So i tried to use My Application with proxy server. My proxy name is analogX proxy.

For using Proxy i am useing below given code but
the InternetOpen() is successed but InternetConnect() is giving error.

Please suggest me the changes in below code

thanX
Advance...

Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_PORT_NUMBER = 0
Const INTERNET_SERVICE_FTP = 1
Const INTERNET_FLAG_PASSIVE = &H8000000
dim hOpen as long,hConnection As Long

hOpen = InternetOpen("Proxy testing", INTERNET_OPEN_TYPE_PRECONFIG,

vbNullString, vbNullString, 0)

hConnection = InternetConnect(hOpen, "ftp.microsoft.com",

INTERNET_DEFAULT_PORT_NUMBER, "anonymous", "[email protected]",

INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0):)