Shoutbox

quote:

---

Originally posted by RileyM
Thank-you Mike2. It is working. I think i'll leave the progressbar out for now

---

This will do your progress bar for the above method
set the progress bar max to 100 (where mobjDownload is the actually name of the object you use for download and prgDownload is the object name of the progress bar)

code:

---

Private Sub mobjDownload_DownloadProgress(ByVal ReceivedBytes As Long, ByVal TotalBytes As Long)
    prgDownload.Value = CLng(100 * (ReceivedBytes / TotalBytes))
    DoEvents
End Sub

---