Маленькое продолжение темы "Аналог Excel-метода "OnTime"" или про многопоточность

Option Explicit
'Модуль для реализации таймеров
'© Антихакер32
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Dim Co As Collection
 
Sub StartTimer(ClassObj As Object, RaiseObject As Object, ProcName$, Interval&)
    On Error Resume Next: If IsError(ClassObj.gTmr) Then Exit Sub
    If Co Is Nothing Then Set Co = New Collection
    EndTimer ClassObj.gTmr
    ClassObj.gTmr = SetTimer(0, 0, Interval, AddressOf TimerProg)
    Co.Add Array(ClassObj.gTmr, ClassObj, RaiseObject, ProcName), CStr(ClassObj.gTmr)
End Sub
 
Sub TimerProg(ByVal hWnd As Long, ByVal msg As Long, ByVal idEvent As Long, ByVal TimeSys As Long)
    Dim v: On Error GoTo ERRR
    For Each v In Co
        If v(1) Is Nothing Then
            EndTimer v(0)
        ElseIf idEvent = v(1).gTmr Then
            CallByName v(2), v(3), VbMethod
        End If
    Next: Exit Sub
ERRR:
    Debug.Print "errr"
End Sub
 
Sub EndTimer(ByVal VarTMR&)
    On Error Resume Next
    If VarTMR = 0 Then Exit Sub
    KillTimer 0, VarTMR: Co.Remove CStr(VarTMR)
End Sub