Замечание. Обратите внимание, что переменная X, описанная вне процедуры Button1_OnClick, видна и в этой процедуре (подробнее об этом в примере 8 ).

<HTML>
<HEAD>
<TITLE>Пример работы с таймером.</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
'По прошествии пяти секунд выполнится 
'метод Alert.
X=SetTimeOut("Alert('Нажмите кнопку!')",5000)
Sub Button1_OnClick() 
    ClearTimeOut X 'Прекращение выполнения 
                   'процедуры.
      Alert "Кнопка нажата."
'-->
End Sub
</SCRIPT>
</HEAD>
<BODY>
<H2>Пример работы с таймером.</H2>
Если кнопка нажата в течение пяти секунд, то появится сообщение 
"Кнопка нажата", иначе - "Нажмите кнопку".<BR>
<FORM>
<INPUT TYPE=BUTTON NAME=BUTTON1 VALUE="Нажмите кнопку!">
</FORM>
</BODY>
</HTML>

Текст этой программы можно взять здесь.

На рисунке 1 виден результат работы приложения:

Рис.1. Пример работы с таймером