Вопрос по таймеру

Dim t, i, b(), k%, t1%
 
Private Sub Command1_Click()
Label1 = 0
t1 = 0
t = Time
Timer2.Enabled = True
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False
Timer2.Interval = 1: Timer2.Enabled = False
b = Array(1, 3, 6)
End Sub
 
Private Sub Timer1_Timer()
'              сек               мин  час
i = DateDiff("s", t, Time) ' \ 60 \ 60
Label2 = i
For k = 0 To UBound(b)
If i = b(k) Then Timer2.Enabled = True
Next k
End Sub
 
Private Sub Timer2_Timer()
Label1 = Val(Label1.Caption) + 1
t1 = t1 + 1
If t1 = UBound(b) + 2 Then
Timer1.Enabled = False
End If
Timer2.Enabled = False
End Sub

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
 
Public Function AddMsgTimer(hWnd As Long, uId As Long, uTime As Long) As Long
    AddMsgTimer = SetTimer(hWnd, uId, uTime, AddressOf TmrFunc) ' Адрес функции, которая будет вызываться при срабатывании таймера
End Function
 
Public Sub DestroyTimer(hWnd As Long, ByRef uId As Long)
    KillTimer hWnd, uId
    uId = -1
End Sub
 
' Функция должна быть описана только с таким кол-ом параметров, имя любое
Public Sub TmrFunc(hWnd As Long, uMsg As Long, idEvent As Long, dwTime As Long)
MsgBox "10" ' Действие при срабатывании таймера
End Sub

Option Explicit
 
Dim nTimer As Long
 
Private Sub Command1_Click()
If (nTimer = -1) Then
    nTimer = AddMsgTimer(hWnd, 10, 3600000) ' Создаем таймер
Else
    DestroyTimer hWnd, nTimer ' Уничтожаем таймер
End If
End Sub
 
Private Sub Form_Load()
nTimer = -1
End Sub

Private Sub Timer1_Timer()
'точность пренебречь
'Timer1.Interval=1000
t = t + 1
If t = 3600 Then: MsgBox "10": t = 0
End Sub