Sub Sleep(intSecs) Dim dtStart, boolAttesa dtStart = now() boolAttesa = False While Not boolAttesa If DateDiff("s",dtStart,now()) >= cint(intSecs) Then boolAttesa = True End If Wend End Sub
Torna al forum | Feed RSS