[VB5] Download di un file via FTP

[Albertorrr]

Ciao a tutti,
ho un problema con questo programmino ftp un pò preso da una guida, un pò cambiato e semplificato dato che voglio solamente downloadare un file solo.
La connessione funziona, quando clicko sul bottone download(Command2) ,sul desktop in cui ho messo l'eseguibile vedo per un attimo il file index.php e poi scompare.
Come mai?
Un'ultima cosa...a che serve il controllo Timer nel download o upload che sia?
Grazie mille
Ciao
Alby

Option Explicit
Public ID As String


 Private Sub Command1_Click()
     Dim URLACCESSO As String
     Dim txtHost As String
     txtHost = "host"
     Dim txtUserID As String
     txtUserID = "nick"
     Dim txtPassword As String
     txtPassword = "pwd"
     Dim file1
     
     
     On Error GoTo ERRORE
     URLACCESSO = "ftp://" & txtUserID & ":" & txtPassword & "@" & txtHost
     Form1.ID = "DIR"
     Form1.Inet1.Execute URLACCESSO
     MsgBox "Connesso"
     Exit Sub
ERRORE:
     MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly
 End Sub



Private Sub Command2_Click()
    On Error GoTo ERRORE
    Dim file1
    file1 = "index.php"
    
    Inet1.Execute "", "GET " & file1 & " " & file1
  ' Devo mettere:  Timer1.Enabled = True ?????????
    Exit Sub
ERRORE:
    MsgBox "ERRORE: " & Err.Description, vbCritical + vbOKOnly

End Sub


Private Sub Timer1_Timer()

     ID = "DIR"
     Inet1.Execute "", "DIR"
     Timer1.Enabled = False

End Sub