Alguien sabe usar el Microsoft Internet Transfer Control para VB 6.0??

[@padawan@]

De acuerdo a la ayuda de MSDN y de material en internet , hice este codigo , pero no anda , se los paso a ver si me pueden decir en que estoy fallando ,

ITC.Protocol = icFTP
ITC.URL = server.text
ITC.username = user.text
ITC.Cancel

'asigna password y conecto
ITC.Password = pass.text
ITC.RequestTimeout = 40
ITC.Execute , "DIR"
Do While ITC.StillExecuting
DoEvents: DoEvents: DoEvents
Loop

ITC.Execute , "CD " & Chr(34) & ruta & Chr(34)
ITC.Execute , "PUT " & DirFile.Path & "\" & NombreFotoFTP & " " & NombreFotoFTP

MsgBox "Se conecto correctamente con el servidor ftp", vbExclamation, "Estado de la conexion FTP"


El error que me tira es el siguiente:
"Still executing last request"

espero sus consejos, saludos.