Advertisement
4_2005-2006 Miscellaneous #150449

TimeOut !

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

AI

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.

源代码
original-source
Sub TimeOut (duration)
StartTime = Timer
Do While Timer - StartTime < duration
  X = DoEvents()
Loop
End Sub
原始评论 (3)
从 Wayback Machine 恢复