vb如何使用UrlDownloadtoFile下载文件 同时显示 进度条 大小 下载速度?

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 LongPrivate Declare Function URLDownloadToFile Lib