关于vb下载文件加进度条的问题

请问下面这段例程能否加个下载进度条/或提示什么的，要怎么做？

'----------------------------------------------------------

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

'------------

DownloadFile "HTTP://URL", "C:\haha.txt"

'------------

建议另找他法，嘿嘿