VB 使用bkDLControl控件下载文件的问题

下载完成后 总是还会显示 错误拒绝的权限 下载失败
请问这是为什么呢？明明已经下载成功了啊?
我想利用这个控件读取LIST里的下载地址实现批量下载，但是貌似就是因为这个原因总是只能下载第一个地址就停止了.......
偶就是想搞清楚为什么啊...不考虑别的方式...

控件和源码下载：http://www.namipan.com/d/bkDLControl.rar/46e0a214f3aee67bd60fd8bdf2a74365dc392f52d6b90000

权限问题找到原因了 KILL的问题
但是批量下载还是不能成功

已自行解决

其实不用bkdlcontrol控件的 只要将txturl变成list1.list(i)就可以了~

'添加 internet transfer control 6.0 和 windows commom controls 6.0
'form代码:

Private Sub cmdGET_Click()
StartDownLoad txtURL
End Sub

Private Sub Form_Load()
savefile.Text = App.Path
End Sub

Private Sub StartDownLoad(ByVal Geturl As String)
Dim spo%, filename$
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(App.Path & "\download") Then Set f = fso.CreateFolder(App.Path & "\download")
spo = InStrRev(Geturl, "/")
filename = Right(Geturl, Len(Geturl) - spo) '获取文件名
savefile.Text = App.Path & "\download\" & filename
Inet1.Execute Geturl, "get" '开始下载
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
'State = 12 时，用 GetChunk 方法检索服务器的响应。
Dim vtData() As Byte