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