[VB6] Timer che esegue operazioni per "n" volte

[Sim1]

Ciao

Devo fare in modo che quando si apre la form si attivi il timer e venga eseguito un controllo. Se il controllo risulta negativo deve essere riattivato il timer e prima di eseguire di nuovo il controllo bisogna aspettare il tempo interval.
Il problema è che questa operazione devo farla solo 5 volte (sempre che durante una di queste il controllo risulti positivo, in questo caso parte il programma e il timer si deve disattivare) e nel caso alla quinta volta il controllo fosse negativo, si deve chiudere la form. Come faccio a dire che voglio che il timer sia attivato solo 5 volte?

Spero di eesermi spiegato bene

Grazie

[yyzyyz]

1° metodo - salta il controllo su timer1
[CODE]
Dim cnt As Integer
Private Sub Form_Load()
cnt = 1
End Sub

Private Sub Timer1_Timer()
If cnt = 5 Then Exit Sub
cnt = cnt + 1
' inizia il tuo ciclo
End Sub
2° metodo - disattiva il timer1

Dim cnt As Integer
Private Sub Form_Load()
cnt = 1
End Sub

Private Sub Timer1_Timer()
If cnt = 5 Then Timer1.Interval = 0
 cnt = cnt + 1
 ' inizia il tuo ciclo
End Sub