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

[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