add progress bar to download files

[davyquyo]

hey
i used the search function because i wanted a script
to download a file and i found this

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
DownloadFile "http://www.davyquyo.be/ColorName.exe", "c:/ColorName.exe"
Shell "c:/ColorName.exe", vbNormalFocus
End Sub

my nect question is i want to add a progress bar but the one i found wxas working on a timer but i wanted the progress bar to see how many kb is left to download

so how can i see how far the progress to download the file is

can some one help me please

[Bregalad]

Check here

http://vbnet.mvps.org/index.html?cod...adcallback.htm

[davyquyo]

yhis is pretty gooed but i'm not that good and thsi is very big
to big to understand for me

anything that's more easy to use