'Método de atraso asp
Sub -atrasoTime (SecondNumber)
Dim StartTime
startTime = agora ()
faça tudo ("s", starttime, agora ()) <marondNumber
laço
final sub
Chamada de atraso (5)
Não há problema em testar, mas este código ocupa uma CPU e não é recomendável usar grande acesso à estação ...