[VB6] Connessione Inet per upload FTP

[Mike]

Salve,
sto utilizzando l'oggetto INET per uploadare sul mio ftp dei file! Il progetto che ho realizzato (molto semplice) non funziona perfettamente, infatti non riesco ad eliminare questo errore: "L'ultima richiesta è ancora in esecuzione"! Ho pensato di inserire un timer, ma non funziona a dovere..... Mi date un consiglio?

Private Function myFtp()
 URLACCESSO = "ftp://user:psw@ftp.miosito.com"
 Inet.Execute URLACCESSO
 Inet.Execute "", "CD htdocs"
 Timer1.Enabled = True
 Inet.Execute "", "PUT C:\file.txt file.txt"
End Function  

Private Sub Timer1_Timer()
    Timer1.Enabled = False
End Sub