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 ip As String

    Dim ipurl As String

   

    ipurl = "http://www.icentar.ba/ip.php"

    ip = Inet1.OpenURL(ipurl, icString)

    MsgBox ip

   

        DoEvents

       

        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

                Do

                        b = Inet1.GetChunk(CHUNK_SIZE, icByteArray)

                        Put #intFile, , b

                        lngBytesReceived = lngBytesReceived + UBound(b, 1) + 1

                        DownloadProgress (Round((lngBytesReceived / lngFileLength) * 100))

                        DoEvents

                Loop While UBound(b, 1) > 0

       

        Close #intFile

End Sub