Public Sub DownloadFile(strURL As String, strDestination As String) 'As Boolean
Const CHUNK_SIZE        As Long = 1024
Dim intFile             As Integer
Dim lngBytesReceived    As Long
Dim lngFileLength       As Long
Dim strHeader           As String
Dim b()                 As Byte
Dim i                   As Integer
Dim AntSecond           As Integer
Dim Velocidad           As Long
Dim AntBytes            As Long
    With Inet1
        .URL = strURL
        .Execute , "GET", , "Range: bytes=" & CStr(lngBytesReceived) & "-" & vbCrLf
        While .StillExecuting
            DoEvents
        Wend
        strHeader = .GetHeader
    End With
    strHeader = Inet1.GetHeader("Content-Length")
    lngFileLength = Val(strHeader)
    DoEvents
    lngBytesReceived = 0
    intFile = FreeFile()
    Open strDestination For Binary Access Write As intFile
        AntSecond = Second(Time)
        Do
            b = Inet1.GetChunk(CHUNK_SIZE, icByteArray)
            Put intFile, , b
            lngBytesReceived = lngBytesReceived + UBound(b, 1) + 1
            lblEstado.Caption = Velocidad / 1024 & " kb/s (" & lngBytesReceived / 1024 & " kb-" & lngFileLength / 1024 & " kb)"
            If AntSecond <> Second(Time) Then
                Velocidad = lngBytesReceived - AntBytes
                AntBytes = lngBytesReceived
                AntSecond = Second(Time)
            End If
            DownloadProgress (Round((lngBytesReceived / lngFileLength) * 100))
            DoEvents
        Loop While UBound(b, 1) > 0
    Close intFile
End Sub