[VB6] Istruzione di ritardo nella gestione di una porta seriale

[multijet]

Di solito basta inserire dopo la funzione sleep(xxx) l'istruzione doevents
es:
For TW = 1 To 10
Sleep (90)
DoEvents
Next TW