Как дождаться окончание таймера - VB

Узнай цену своей работы

Формулировка задачи:

Вот возникла проблема на пустом месте... Нужно закрыть приложение по истечении определённого времени.Проблема:

Необходимо дождаться завершения работы таймера, прежде чем идти дальше по программе.

Тот вариант, который я написал грузит ЦП. Никак не могу сообразить. Может поможете. Вот наброски: Таймер:
Основная программа:
API Sleep не поможет, т.к. я должен на форме указать, сколько времени осталось до закрытия.

Решение задачи: «Как дождаться окончание таймера»

textual
Листинг программы
If (Событие) Then
    GlobTime = 99 'или сколько???
   MainTimer.Interval = 1000: MainTimer.Enabled = True
   'Do: DoEvents: Loop Until Finished = True                  '    <--проблема в загрузке ЦП
End If
 
'Shell = "taskkill /F /IM cmd.exe"

Оцени полезность:

12   голосов , оценка 3.667 из 5
Похожие ответы