VB怎么利用FTP下载EXE程序;用这段代码下不了！

Inet1.Protocol = icFTP
      Inet1.RemoteHost = ServerName'服务器地址
      Inet1.RemotePort = 21'FTP端口
      Inet1.UserName = uName'用户名
      Inet1.Password = uPWS'密码下载文件：
Inet1.Execute "", "GET 1.EXE d:\1.EXE"
        ri = Inet1.StillExecuting
        Do While ri
          ri = Inet1.StillExecuting
          DoEvents
        Loop
VB怎么利用FTP下载EXE程序;用这段代码下不了！请问该怎么做？？