Shoutbox

quote:

---

Originally posted by Hah

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

---

---

I understand what you mean about prgDownload but not about mobjDownload. So you mean mobjDownload will become DownloadFile as in Mike2's code example above?