[VB6] [Source] Download with ProgressBar and Stats with Inet

Code:
Option Explicit
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim DownloadProgress As Integer, CurrentSize As Double, Seconds As Long
Dim tempSize As Double, lngFileLength As Double

Private Sub cmdDownload_Click()
On Error GoTo ErrReturn

If tURL.Text = "http://" Then Exit Sub
CancelError = True
DialogTitle = "Choose a location to Save"
FileName = Right(tURL.Text, Len(tURL.Text) - InStrRev(tURL.Text, "/"))
Dim ext As String
ext = Right(tURL.Text, Len(tURL.Text) - InStrRev(tURL.Text, "."))
Filter = "." & ext & "|." & ext & "|All Files|*.*"
InitDir = Environ("USERPROFILE") & "\Desktop"
ShowSave
ProgressBar1.Visible = True
ProgressBar1.Value = 0

Timer1.Enabled = True
DownloadFile tURL.Text, FileName

Timer1.Enabled = False
If Seconds <= 60 Then
    lRem.Caption = "Download Complete" & vbCrLf & "Time Elpased: " & Seconds & " seconds"
ElseIf Seconds <= 360 And Seconds >= 61 Then
    Dim Minutes As Byte
    Minutes = Seconds / 60
    lRem.Caption = "Download Complete" & vbCrLf & "Time Elapsed: " & Minutes & " minutes" & Seconds & " seconds"
End If

lbl.Caption = "Click here to open File location" & vbCrLf & "Total Size: " & Round(CurrentSize / 1024, 2) & "Mb"
ProgressBar1.Visible = False
Exit Sub
ErrReturn:
End Sub

Private Sub Form_Initialize()
InitCommonControls
End Sub

Private Sub Form_Load()
pic.BackColor = RGB(220, 220, 220)
ProgressBar1.Visible = False
End Sub

Public Sub DownloadFile(strURL As String, strDestination As String)
Const CHUNK_SIZE As Long = 1024
Dim intFile As Integer, lngBytesReceived As Double
Dim strHeader As String, b() As Byte, i As Integer
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
If lngFileLength = 0 Then Exit Sub
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, 1)
    ProgressBar1.Value = Round(DownloadProgress)
    CurrentSize = Round((lngBytesReceived / 1024), 2)
    lbl.Caption = CurrentSize & " kB of " & Round((lngFileLength / 1024), 2) & " kB Downloaded"
    DoEvents
Loop While UBound(b, 1) > 0
Close #intFile
End Sub

Private Sub lbl_Click()
Shell "explorer.exe " & Left(FileName, InStrRev(FileName, "\")), vbNormalFocus
End Sub

Private Sub Timer1_Timer()
On Error GoTo er
lRem.Caption = DownloadProgress & "% Done" & vbCrLf & "Download Speed: " & CurrentSize - tempSize & " Kb/s"
Seconds = Seconds + 1
tempSize = CurrentSize
er:
End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload Me
End
End Sub