Advertisement
ASP_Volume2 Miscellaneous #31917

TimeOut !

This is a neat little Sub that will Cause a Pause or "Time Out" in your program.

AI

Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Kod źródłowy
original-source
Sub TimeOut (duration)
StartTime = Timer
Do While Timer - StartTime < duration
  X = DoEvents()
Loop
End Sub
Oryginalne komentarze (3)
Odzyskane z Wayback Machine