vb 新手问题！按钮连接文件！下载进度显示!

'上次给你的回答不够具体。下面就按你的要求重新做个程序给你，请查收。
'先在窗体上添加label1和command1控件。label1显示进度，command1开始下载。
'然后复制下面代码即可。
'=========代码部分==============
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim mDownLoaddComPlete As Boolean

Private Sub Command1_Click()
Dim Filename As String, Url As String, fso, aso, http
Dim current, start, i, total
Dim temp As String, range As String
Dim Dnbyte
Dnbyte = 20480 '20K 每次下载的字节数n*1024
Url = "http://download.fxj.com.cn/base/BLOCK.zip"
Filename = App.Path & "\a.zip"
If Not Left(Url, 7) = "http://" Then Url = "http://" & Url

Set fso = CreateObject("Scripting.FileSystemObject")
Set aso = CreateObject("ADODB.Stream")
Set http = CreateObject("