[vb.net] Rallentare ciclo FOR

[Sir Board]

Function ATTENDI(sec As Integer)
a1 = Val(Format$(Now, "hhmmss"))
a2 = Val(Format$(Now, "hhmmss"))
Do While a2 < a1 + sec
    a2 = Val(Format$(Now, "hhmmss"))
    ev = DoEvents()
Loop
End Function

Ciao