Determining Time Left In Donwload Process

[MartinLiss]

Try something like this

    Dim dblTotKBs As Double ' Total KBs in the file
    Dim dblKBPS As Double ' Download speed
    Dim dblKBsDownloaded As Double ' KBs downloaded
    Dim dblSecsRemaining  As Double
    
'    dblTotKBs = 350000
'    dblKBPS = 14000
'    dblKBsDownloaded = 2550
    
    dblSecsRemaining = (dblTotKBs - dblKBsDownloaded) / dblKBPS
    
    MsgBox dblKBsDownloaded & " of " & dblTotKBs & " downloaded" _
        & vbCrLf & vbCrLf _
        & Format(dblSecsRemaining, 0) & " Seconds left"

------------------
Marty
Why is it called lipstick if you can still move your lips?