如何用VB实现下载功能

在网上找的很多都弄不来，这个功能是不是很难实现啊？

---

网上现成的程序很多，都可以实现的

---

一个用Inet控件下载的函数,第一个参数是下载地址,第二个参数是保存路径.
VB code:
Private Function downFile(ByVal Url As String, ByVal savefolder As String) As String
Dim bytes() As Byte
' 把文件的字节读到一个Byte数组中
' On Error Resume Next
bytes() = Inet1.OpenURL(Url, icByteArray)
If Err.Number = 35764 Then Exit Function
'得出文件名
Dim tempS
tempS = Split(Url, "/")
Dim fname As String
fname = tempS(UBound(tempS))
fname = App.Path & "\" & savefolder & "\" & fname
Open fname For Binary Access Write As #1
Put #1, , bytes()
Close #1
downFile = fname
End Function

---

老张您好，我不知道怎么弄啊，控件弄来了，可我把代码放在按钮中，也不能实现啊，都怪我基础太差了，能不能辛苦您再稍微解释一下啊？

辛苦您了啦。。。

---

使用WinSocket控件，实现多线程的下载方式

---

老张的代码很精干

---

urldownloadfile
这个API函数不知道有没有拼错

---

http://www.m5home.com/blog/article.asp?id=395

---

啊哈,图片打开防盗链了,忘了......

---

Option Explicit
Private Declare Function URLDownloadToFile Lib "url