[VB6] Bloccare l'esecuzione di un comando Internet Transfer Protocol

[Manfre]

Ciao ragazzi
Sto sviluppando un software che esegua lo scaricamento di documenti o intere pagine dal web.
Per eseguire questa operazione ho utilizzato l'Internet Transfer Protocol.
Le istruzioni per eseguire l'operazione sono queste

filescaricato = Inet1.OpenURL(urldascaricare)
Open "c:\\filedestinazione.txt" For Output As #1
Print #1, filescaricato
Close #1

Eseguo il controllo dello stato della connessione e del lavoro con questa sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
verifica = Str(State)
End Sub

Il fatto è che vorrei interrompere il lavoro quando il valore della variabile "verifica" resta a 3 o 7 per troppo tempo per lanciare il download del file successivo. Ho provato a utilizzare il metodo CANCEL ma non funziona e continua a dirmi che è in esecuzione l'ultima richiesta

Suggerimenti?

[MdE2005]

Questo progetto può esserti di aiuto

[Manfre]

Grazie MdE2005
Il progetto l'avevo già visto e studiato ma non c'è quello che mi serve.
L'Internet transfer protocol ha la possibilità di gestire il timeout generando un errore che va poi "lavorato" di conseguenza. Io invece volevo evitare di fare generare un errore. Se il valore dello stato è 3 (icConnecting) ad esempio, perché per un motivo o per l'altro la connessione ha avuto problemi, l'oggetto Inet non si schioda più e, a quanto pare, l'unico modo per "resettarlo" è generare un errore di timeout, che io volevo evitare.

Grazie comunque, in mancanza di meglio gestirò l'errore