Advertisement
1_2002 Miscellaneous #104581

TimeOut !

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

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