А можно задать программно ограничение по времени?

[Бандикут]

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

[Leon_]

Используй TimerInterval и обработчик события Form_Timer()

[Бандикут]

а можно чуть подробней? В справке нашел только про просто Timer, но он не позволяет убрать по истечении времени форму, в которой ожидается от пользователя ввод данных...

[Leon_]

1) Добавить на форму объект Timer
2) В модуль формы добавить следующий код

Код: Выделить всё

Private Sub Form_Load()
    Me.ctlTimer.Interval = 3000
End Sub

Private Sub ctlTimer_Timer()
    Me.ctlTimer.Interval = 0
    Me.Visible = False
End Sub