API InternetConnect fra passive til active.

Jeg bruger denne API til noget FTP.

Jeg har brug for at ændre fra Passive til Active.
Hvad skal værdien INTERNET_FLAG_PASSIVE ændres til for at gøre forbindelsen Active?


Private Const INTERNET_FLAG_PASSIVE = &H8000000

Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
  (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
  ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
  ByVal lFlags As Long, ByVal lContext As Long) As Long

 
hConnection = InternetConnect(hInet, lRemoteHost, 0&, lUserName, lPassWord, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0)