Sub Manager_DownloadProgress (ServerPath As String, TotalDownloaded As Long, Total As Long)
Dim lblDLSummary As label
If Total > 0 Then
lblDLSummary.Text = "Downloaded " & Round(TotalDownloaded / 1000) & "KB, Out Of " & Round(Total / 1000) & "KB"
Else
lblDLSummary.Text = "Downloaded " & Round(TotalDownloaded / 1000) & "KB"
End If
End Sub