Ciao a tutti!

Ho un problema con la gestione di un Timer;
Vi descrivo la mia situazione:

Ho 10 TextBox che hanno un controllo a matrice (Text1(i));
Ho un bottone Command_1;
Ho un Timer che inizia a contare nel momento in cui si preme il button;

Nei dieci TextBox verranno inseriti da tastiera dei valori numerici che indicano il ritardo con cui avverrà la mia funzione. Al Click infatti, il timer
comincerà a contare e passati tot secondi farà accadere la mia azione specifica; Nei TextBox quindi vengono raccolti i ritardi con cui l'evento si manifesta (se ad esempio i primi due TextBox contengono 5 e 12 significa che l'evento accadrà dopo 5 secondi che ho premuto il bottone e dopo altri 12 secondi dal quinto secondo accadrà di nuovo l'evento...);

mio codice:

Dim dato
Dim scambio

Private Sub Command1_Change()
For i = 0 To 9
dato = Val(Text1(i).Text)
Next
End Sub

Private Sub Command1_Click()
Timer1.Interval = 100000000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
For i = 0 To 9
If dato > 0 Then

scambio = Timer + dato

'mia funzione

End If
Next

End Sub


sarebbe più corretto sostituire l'if...end con:

do while dato>0
'funzione
loop
end sub


mi date una mano per favore?
Grasias!!

Mic.