hOpen = InternetOpen("Mozilla/4.0 (compatible; MSIE 6.0b; Windows NT 5.0; .NET CLR 1.0.2914) ", _
                      INTERNET_OPEN_TYPE_PROXY, _
                      proxyName, _
                      vbNullString, _
                       0 )

    strURL = "ftp://" & userName & ":" & userPwd & "@" & ftpServ & "/public_ftp/

     hOpenURL = InternetOpenUrl(hOpen, _
                            strURL, _
                            vbNullString, _
                             0 , _
                            INTERNET_FLAG_RELOAD, _
                             0 )

     iRet = HttpQueryInfo(hOpenURL, HTTP_QUERY_FLAG_NUMBER Or HTTP_QUERY_STATUS_CODE, dwStatus, Len(dwStatus), iIndex)			
     if dwStatus = HTTP_STATUS_PROXY_AUTH_REQ Then	
     	iRet = InternetSetOption(hOpenURL, INTERNET_OPTION_PROXY_USERNAME, proxyUserName, Len(proxyUserName) +  1 )
 	iRet = InternetSetOption(hOpenURL, INTERNET_OPTION_PROXY_PASSWORD, proxyPassword, Len(proxyPassword) +  1 )
end if