Originariamente inviato da Adrix
Ciao a tutti io ho un problema, con un timer sto cercando di inserire un intervallo di tempo tra l'esecuzione di due shell, ma non ci riesco, questo è il codice che inserisco:

Private Sub Timer1_Timer()
Timer1.Enabled = False
End Sub

Private Sub cmdshell_Click()
Shell "1programma ecc...

Timer1.Interval = 2000 ' 2 sec's
Timer1.Enabled = True
While Timer1.Enabled = True
Wend

Shell "2programma ecc...
End Sub

Purtroppo inserendo questo codice ad un certo punto il programma si blocca con la clessidra...dov'è il problema?
Grazie
Prova con un "DoEvents" nel ciclo while.