我昏哦，你这100分，也太好拿了吧？

Question

的确，很好拿，请看 实现控件:MS Internet Transfer Control 6.0
单击按钮（comBott1)，就会从FTP站点text1.text（譬如ftp://www.126.com,支持2级域名，如：ftp://myweb.xicp.net）下载指定的文件text2.text，状态（如：连接主机成功，下载完毕）通过label1.caption来显示。不骗你吧，很简单的

Answer 1

Private Sub Command1_Click()
Inet1.URL = Text1.Text
Inet1.Protocol = 2
Inet1.UserName = "用户名"
Inet1.Password = "密码"
Inet1.Execute , "GET " & Text2.Text
Do While Inet1.StillExecuting
    DoEvents
Loop
Label1.Caption = "下载完毕!"
End Sub