Option Explicit

Private lTimerID As Long
Private bAutoReset As Boolean

Public Event OnTimer()

Public Property Get AutoReset() As Boolean
AutoReset = bAutoReset
End Property
Public Property Let AutoReset(value As Boolean)
bAutoReset = value
End Property

Public Sub StartTimer(ByVal Duration As Long)
    If lTimerID = 0 Then
        If Duration > 0 Then
            lTimerID = SetTimer(Application.hWnd, ObjPtr(Me), Duration, AddressOf TimerProc)
            If lTimerID = 0 Then
                MsgBox "Timer initialization failed!"
            End If
        Else
            MsgBox "The duration must be greater than zero."
        End If
    Else
        MsgBox "Timer already started."
    End If
End Sub

Public Sub StopTimer()
    If lTimerID <> 0 Then
        KillTimer Application.hWnd, lTimerID
        lTimerID = 0
'    Else
'        MsgBox "Timer is not active."
    End If
End Sub

Public Sub RaiseTimerEvent()
    If Not AutoReset Then
        StopTimer
    End If
    RaiseEvent OnTimer
End Sub

#If Win64 Then

Public Declare PtrSafe Function SetTimer Lib "User32" _
    (ByVal hWnd As LongLong, _
    ByVal nIDEvent As LongLong, _
    ByVal uElapse As LongLong, _
    ByVal lpTimerFunc As LongLong) As LongLong

Public Declare PtrSafe Function KillTimer Lib "User32" _
    (ByVal hWnd As LongLong, _
    ByVal nIDEvent As LongLong) As LongLong
    
#Else

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
    
#End If