请教关于vb中inet控件上传大文件的问题

我需要写一个小程序，需要用到向ftp服务器上传图片文件的功能，我选择了使用inet控件，当图片比较小的时候，运行程序可以成功上传，可是一旦图片大一点，比如说有1m，则程序出现假死现象，最后退出，我看ftp服务器上的图片没有接受完，所以打开图片只能看到半截图片，这是为什么啊，请师兄帮我解决一下，我的代码是这样的：Private Sub Command1_Click()
Dim filename, putfile As String
'设置FTP的地址、协议类型、用户名、密码
Inet1.URL = "ftp://123.56.85.149"  'FTP的地址
Inet1.Protocol = icFTP
 Inet1.RemotePort = 21
Inet1.UserName = IUSR_iZ25fj4l2ksZ
Inet1.Password = aA8121118

Inet1.Execute , "put E:\图片\穴位图\腹部穴位.jpg  \腹部穴位.jpg"
Do While Inet1.StillExecuting

DoEvents
Loop
Inet1.Execute , "close"
Inet1.Execute , "quit"

End Sub