Как остановить счётчик

[BDA2011]

Здравствуйте уважаемые форумчане!
собственно как остановить счетчик? если форму уже закрыли не дожидаясь окончания времени....

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:15"), "KillTheForm"
UserForm2.Show
End Sub

все бы ничего но экран "подмигивает" когда по окончанию времени срабатывает KillTheForm

Private Sub KillTheForm()
Unload UserForm2 ' пробовал и выгружать
'UserForm2.Hide ' и скрывать, все рано экран моргает
End Sub

[VictorM]

Как-то было уже на форуме
Попробуйте поискать по слову таймер

[аналитика]

нужна глобальная переменная, напр.,

public KillTheFormTime

Private Sub Workbook_Open()
KillTheFormTime=Now + TimeValue("00:00:15")
Application.OnTime KillTheFormTime, "KillTheForm"
UserForm2.Show
End Sub

и потом, если форму уже закрыли, отменяешь ранее назначенное:

Application.OnTime KillTheFormTime, "KillTheForm",,false

[kuklp]

Привет, умнички! Саш, а чего бы не на UserForm_QueryClose? Тогда и переменная не нать.

[аналитика]

как так?
можно конечно без переменной обойтись - в Tag чей-нибудь "засунуть", но время назначенного задания нужно куда-то сохранить-то, чтобы его потом можно было чик-чик...

[kuklp]

процедуру Application.OnTime Now + TimeValue("00:00:15"), "KillTheForm" запускать в самой форме на activate, а по событию выгрузки формы ontime now()... false

[BDA2011]

Спасибо всем ответившим!
вот здесь тоже самое http://www.programmersforum.ru/showt...E0%E9%EC%E5%F0 предлагается, но в моем случае не работает
короче чето я малость запутался... того что я хочу не получается
поясню чего я хочу в принципе: при открытии книги вылазит форма (UserForm2) (ну типа заставки) на 5 сек, если не трогать сама закроется спустя время, можно принудительно кликнуть на ней она закроется но тогда нужно остановить таймер что бы экран не мерцал... так же есть кнопочка в другой форме (UserForm1) для для показа этой же формы (UserForm2) потому что на ней есть две нужные кнопки, здесь уже без таймера сам пользователь открыл сам пусть и закрывает.

[BDA2011]

всего этого я добился но не знаю как остановить таймер соответственно что бы экран не мерцал

[IgorGO]

Сеража,
OnTime удавалось остановить только в двух случаях
1. когда из самой OnTime-процедцры не производить следующий вызов самой себя через OnTime
2. отменить загруженную OnTime только если знаешь на какое время она назначена. одного False там мало.

[kuklp]

Тогда да. Как Саня предложил.