сохранение файла из интернета.

моя программа должна загружать обновления с моего сайта. фалы я закачиваю вот этим способом:
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 Event ErrorDownload(FromPathName As String, ToPathName As String)

Public Event DownloadComplete(FromPathName As String, ToPathName As String)



Public Function DownloadFile(FromPathName As String, ToPathName As String)

If URLDownloadToFile(0, FromPathName, ToPathName, 0, 0) = 0 Then

DownloadFile = True

RaiseEvent DownloadComplete(FromPathName, ToPathName)

Else

DownloadFile = False

RaiseEvent ErrorDownload(FromPathName, ToPathName)

End If

End Function



Private Sub Command1_Click()

Call DownloadFile("http://visual-basic.nm.ru/Banner.gif", "c:\Banner.gif")

End Sub

вот вопрос: как мне сделать этот процесс закачки зрительным, тоесть выразить его через Progress Bar?