Option Explicit
'Модуль Таймер1
'Глобальная информация
Public Counter As Long	'Счетчик числа вызовов Callback функции
Public MyTimer As New ВашТаймер

Public Sub Start1()
		MyTimer.ИнтервалТаймера = 5000
		MyTimer.СоздатьТаймер
End Sub

Public Sub Finish1()
		MyTimer.УдалитьТаймер
End Sub

Public Sub TimerProc(ByVal HandleW As Long, ByVal msg As Long, _
			ByVal idEvent As Long, ByVal TimeSys As Long)
		'Функция обратного вызова. Вызывается при обработке сообщения WM_Timer,
		'посылаемого таймером, созданным процедурой SetTimer
		
		Counter = Counter + 1
		Debug.Print "Hi", Counter

End Sub


Пример 6.13.
Закрыть окно