Attribute VB_Name = "modmmTimer"
Option Explicit

'Add a callback function for each declared timer
Public Sub TimerFunc1(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
    Form1.TimerListMode.CountEvents = Form1.TimerListMode.CountEvents + 1
    If (Form1.TimerListMode.CountEvents >= Form1.TimerListMode.tmrIDInterval) Then
        Form1.TimerListMode.CallEvent
        Form1.TimerListMode.CountEvents = 0
    End If
End Sub

'Public Sub TimerFunc2(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
'    frmMMTimerEx.Timer2.CountEvents = frmMMTimerEx.Timer2.CountEvents + 1
'    If (frmMMTimerEx.Timer2.CountEvents >= frmMMTimerEx.Timer2.tmrIDInterval) Then
'        frmMMTimerEx.Timer2.CallEvent
'        frmMMTimerEx.Timer2.CountEvents = 0
'    End If
'End Sub