[VB6] Timer in sequenza

[Rycare]

ciao, non riesco a trovare esempi di timer in sequenza.
Ho due routine che allo START devono essere eseguite in sequenza R1-R2-R2-R2-R2 tutte a distanza di un secondo, il tutto diverse volte quindi

R1-R2-R2-R2-R2
R1-R2-R2-R2-R2
R1-R2-R2-R2-R2
....

Ho già un contatore che ferma tutto quando l'intero ciclo viene ripetuto tot volte ma non riesco a fare la sequenza interna R1/R2.
Potreste aiutarmi per favore? Grazie

[oregon]

La sequenza la puoi fare utilizzando la Sleep(1000) tra le varie chiamate

[Rycare]

ciao e grazie per l'aiuto. Con sleep sembra funzionare perfettamente col minimo del codice e senza i Timer. grossomodo ho usato:

....
....
if contatore>0 then
Call Routine1_click
form1.refresh 
Sleep 1000
for x= 1 to 5
Call Routine2_click
form1.refresh 
Sleep 1000
next x
contatore=contatore-1
end if
...
...

adesso riesco a vedere tutto anche le modifice apportate alle label che prima non apparivano durante il ciclo
Però ho notato che non posso toccare nulla durante l'esecuzione o il programma va in freeze. C'è modo di ovviare a questo problema?

[oregon]

Sì perché la Sleep blocca il thread corrente e VB6 utilizza un solo thread.

Puoi sostituire ogni Sleep(1000) con le seguenti linee (magari utilizzi una Sub che richiami dove ti serve)

For i=1 to 50
  Sleep(20)
  DoEvents
Next i

[Rycare]

grazie mille, ora è perfetto!