关于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"
'------------
参考答案:建议另找他法，嘿嘿