VBA Access. Módulo Timers. Crear uno o varios Timer independiente(s) sin depender del formulario. (1/2)

'Crear un módulo llamado Timers

'https://access-programmers.co.uk/forums/showthread.php?t=232012

#If Win64 = 1 Then

    Public Sub TimerProc(ByVal hwnd As LongPtr, _

                             ByVal uMsg As LongLong, _

                             ByVal oTimer As clsTimer, _

                             ByVal dwTime As LongLong)

       ' Alert appropriate timer object instance.

       If Not oTimer Is Nothing Then

            oTimer.RaiseTimerEvent

            Debug.Print "evento timer"

       End If

    End Sub

#Else

    Public Sub TimerProc(ByVal hwnd As Long, _

                         ByVal uMsg As Long, _

                         ByVal oTimer As clsTimer, _

                         ByVal dwTime As Long)

       ' Alert appropriate timer object instance.

       If Not oTimer Is Nothing Then

            oTimer.RaiseTimerEvent

            Debug.Print "evento timer"

       End If

    End Sub

#End If