Private Sub NetGrab1_DownloadFileProgress(ByVal nRead As Long, ByVal nFull As Long)
   Dim Kbps As Double
    Debug.Print nRead & "-" & nFull
    If nFull >  0  Then
        ProgressBar1.Max = CSng(nFull)
    End If
    With NetGrab1
        If (nRead >  0 ) And (nRead <= nFull) And (.Duration >  0 ) Then
            ProgressBar1.Value = CSng(nRead)
            Kbps = ((nRead *  8 ) /  1000 ) / (.Duration /  1000 )
            Label3.Caption = Format$(nRead, "#,##0") & "/" & _
              Format$(nFull, "#,##0") & " bytes (" & _
              Format$(Kbps, "0.0") & " kbps)"
        End If
    End With
End Sub

        NetGrab1.DownloadStart "http://www.mysite.com/myfile.zip", _
          vbAsyncReadForceUpdate, vbAsyncTypeFile, "NewVersion"

Private Sub NetGrab1_DownloadFileProgress(ByVal nRead As Long, ByVal nFull As Long)
   Dim Kbps As Long 'Double
    Debug.Print nRead & "-" & nFull
    If nFull >  0  Then
        ProgressBar1.Max = CSng(nFull)
    End If
    With NetGrab1
        If (nRead >  0 ) And (nRead <= nFull) And (.Duration >  0 ) Then
            ProgressBar1.Value = CSng(nRead)
            Kbps = CLng((nRead /  1000 ) / (.Duration /  1000 ))
            tmp_Progress = "Estimated time left " & EstimatedTimeLeft(nRead, nFull, .Duration) & " (" & _
              FormatBytes(nRead) & " of " & _
              FormatBytes(nFull) & " copied) "
            tmp_Rate = Format$(Kbps, "#") & " KB/Sec"
        End If
    End With
End Sub
Private Sub NetGrab1_DownloadFileComplete(ByVal FileName As String)
   Dim Kbps As Long 'Double
    tmp_Progress = ""
    tmp_Rate = ""
    TimerRefresh.Enabled = False
    Kbps = CLng((GetFileS(FileName) /  1000 ) / (NetGrab1.Duration /  1000 ))
    LabelProgress.Caption = FormatBytes(GetFileS(FileName)) & " in " & GetMeTime(NetGrab1.Duration)
    LabelRate.Caption = Format$(Kbps, "#") & " KB/Sec"
    If NetGrab1.Action = "NewVersion" Then
        CopyFile FileName, NewVersionFile, True
        DeleteFile FileName
        ProcessRunNewVersion NewVersionFile
    End If
End Sub

Function FormatBytes(in_bytes As Long) As String
    Dim KB As Long
    Dim MB As Double
    KB = in_bytes /  1024 
    If KB <  1000  Then
        FormatBytes = CStr(KB) & "KB"
    Else
        MB = KB /  1024 
        If MB <  10  Then
            FormatBytes = Format$(MB, "#.00") & "MB"
        Else
            FormatBytes = Format$(MB, "#.0") & "MB"
        End If
    End If
End Function

Function EstimatedTimeLeft(m_Read As Long, m_Full As Long, m_Duration As Long) As String
    Dim TimeLeftSec As Long
    Dim TimeLeftMin As Long
    Dim TimeLeftH As Long
    If m_Read >  0  Then
        TimeLeftSec = CLng(m_Duration * ((m_Full - m_Read) / m_Read) /  1000 )
        If TimeLeftSec <  60  Then
            EstimatedTimeLeft = TimeLeftSec & " sec"
        Else
            TimeLeftMin = Int(TimeLeftSec /  60 )
            TimeLeftSec = TimeLeftSec - (TimeLeftMin *  60 )
            If TimeLeftMin <  60  Then
                EstimatedTimeLeft = TimeLeftMin & " min " & TimeLeftSec & " sec"
            Else
                TimeLeftH = Int(TimeLeftMin /  60 )
                TimeLeftMin = TimeLeftMin - (TimeLeftH *  60 )
                EstimatedTimeLeft = TimeLeftH & " h " & TimeLeftMin & " min"
            End If
        End If
    Else
        EstimatedTimeLeft = ""
    End If
End Function

Function GetMeTime(m_Duration As Long) As String
    Dim TimeSec As Long
    Dim TimeMin As Long
    Dim TimeH As Long
    TimeSec = m_Duration /  1000 
    If TimeSec <  60  Then
        GetMeTime = TimeSec & " sec"
    Else
        TimeMin = Int(TimeSec /  60 )
        TimeSec = TimeSec - (TimeMin *  60 )
        If TimeMin <  60  Then
            GetMeTime = TimeMin & " min " & TimeSec & " sec"
        Else
            TimeH = Int(TimeMin /  60 )
            TimeMin = TimeMin - (TimeH *  60 )
            GetMeTime = TimeH & " h " & TimeMin & " min"
        End If
    End If
End Function

Private Sub TimerRefresh_Timer()
    LabelProgress.Caption = tmp_Progress
    LabelRate.Caption = tmp_Rate
End Sub

Private Sub cmdGet_Click()
    Dim TheBrowser 'As InternetExplorer
    MsgBox "Run App after downloading"
On Error GoTo nodown
    Set TheBrowser = CreateObject("InternetExplorer.Application")
    'TheBrowser.Visible = True
    TheBrowser.Navigate "http://www.myproga.com/newversion.zip"
nodown:
    Set TheBrowser = Nothing
End Sub

Private Sub cmdGet_Click()
    Dim TheBrowser 'As InternetExplorer
On Error exit sub
    Set TheBrowser = CreateObject("InternetExplorer.Application")
    TheBrowser.Visible = False
    TheBrowser.Navigate "http://www.myproga.com/newversion.zip"
End Sub