Foro de elhacker.net

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:

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