[VB6] Scaricare Form al termine di un'operazione con ProgressBar

[maurelio79]

Scusami ma sono veramente ignorante in VB:
io scritto ciò:

Private Sub Timer1_Timer()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub 

Function sClose()
Dim f As Form
If testo = "Finito" Then
testo2 = "Aggiornamento Completato"
Else
testo2 = "Aggiornamento non Completato"
End If
Label2.Caption = testo2
Call Timer1_Timer
For Each f In Forms
Unload f
Set f = Nothing
Next
End Function 

Questo è solo un esempio, nel lavoro definitivo non ci sarà un ciclo if, ma comunque il form si chiude subito e non visualizzo nessun messaggio.

Come devo fare?