Descargar archivos grandes con API en VB6

[okik]

Hola,
Ya uso Vb,net pero estoy corrigiendo un programa que hice con vb6. Es un poco grande y no quiero pasarlo a vb.net.

El programa descarga archivos pero ocurre que NO descarga archivos que sean demasiado grandes.

El código que uso para descargar es este:

Código (vb) [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long,  _
ByVal szURL As String,  _
ByVal szFileName As String,  _
ByVal dwReserved As Long,  _
ByVal lpfnCB As Long) As Long
Dim Contador As Integer
   Const ERROR_SUCCESS As Long = 0
   Const INTERNET_FLAG_RELOAD As Long = &H80000000
   Const BINDF_ASYNCHRONOUS = &H1
   Const BINDF_ASYNCSTORAGE = &H2
   Const BINDF_NOPROGRESSIVERENDERING = &H4
   Const BINDF_OFFLINEOPERATION = &H8
   Const BINDF_GETNEWESTVERSION = &H10 ' El funcionamiento del lazo debe recuperar la más nueva versión de los datos.
   Const BINDF_NOWRITECACHE = &H20
   Const BINDF_NEEDFILE = &H40
   Const BINDF_PULLDATA = &H80
   Const BINDF_IGNORESECURITYPROBLEM = &H100
   Const BINDF_RESYNCHRONIZE = &H200
   Const BINDF_HYPERLINK = &H400
   Const BINDF_NO_UI = &H800
   Const BINDF_SILENTOPERATION = &H1000
   Const BINDF_PRAGMA_NO_CACHE = &H2000
   Const BINDF_FREE_THREADED = &H10000
   Const BINDF_DIRECT_READ = &H20000
   Const BINDF_FORMS_SUBMIT = &H40000
   Const BINDF_GETFROMCACHE_IF_NET_FAIL = &H80000



Public Function DownloadFile(URL As String,  _
LocalFilename As String) As Boolean
   Dim lngRetVal As Long
   lngRetVal = URLDownloadToFile(0&, URL, LocalFilename, BINDF_ASYNCHRONOUS , 0&)
   If lngRetVal = 0 Then DownloadFile = True
End Function