代码如下：
         Dim right1 As Boolean
         Inet1.URL = "ftp://UserName:MyPassword@remotehost:remoteport/"
         Inet1.Protocol = icFTP
         Inet1.UserName = UserName
         Inet1.Password = MyPassword

         Inet1.Execute , "put C:\log.txt"

         right1 = Inet1.StillExecuting
         Do While right1
           right1 = Inet1.StillExecuting
           DoEvents
         Loop
         Inet1.Execute , "QUIT"
state已经是8（控件已成功从主机接受反馈信息icDisconnecting）了，但right1上来就是flase，IE中用URL可以直接打开FTP，麻烦大家帮忙看看问题可能出在哪，谢谢！