Ajuda com código Cronômetro do mestre João Paulo.

olá a todos do fórum

estou usando o código de Cronômetro do mestre João Paulo, vejam:

Código:

Option Compare Database
Option Explicit

Dim TotalElapsedTime As Long
Dim StartTime As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long


Private Sub cmdTimer_Click()
    Me.lblElapsed.Visible = True
    If Me.TimerInterval = 0 Then
        StartTime = GetTickCount()
        Me.TimerInterval = 10
        Me!cmdTimer.Caption = "Stop"
        Me!cmdReset.Enabled = False
    Else
        TotalElapsedTime = TotalElapsedTime + (GetTickCount() - StartTime)
        Me.TimerInterval = 0
        Me!cmdTimer.Caption = "Start"
        Me!cmdReset.Enabled = True
    End If
End Sub

Private Sub Form_Current()
DoCmd.Restore
End Sub

Private Sub Form_Timer()
    Dim Hours As String
    Dim Minutes As String
    Dim Seconds As String
    Dim MilliSec As String
    Dim Msg As String
    Dim ElapsedMilliSec As Long

    ElapsedMilliSec = (GetTickCount() - StartTime) + TotalElapsedTime

    Hours = Format((ElapsedMilliSec \ 3600000), "00")
    Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00")
    Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00")
    MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00")
    
    Me!lblElapsed.Caption = Hours & ":" & Minutes & ":" & Seconds & ""
   ':" & MilliSec

   ' Me!lblElapsed.Caption = Hours & ":" & Minutes & ":" & Seconds & ":" & MilliSec

End Sub

Private Sub cmdReset_Click()
    TotalElapsedTime = 0
    Me!lblElapsed.Caption = "00:00:00:00"
    Me!lblElapsed.Visible = False
End Sub

O código é acionado por um botão de comando (cmdTimer).

Até aí tudo bem.

A questão é que desejo ter mais de uma label rodando o cronômetro, que serão ativados em tempos diferentes.

Gostaria de criar uma função publica para cada botão de comando.

Se eu tiver 5 botões de comandos, deverá rodar 5 cronometros diferentes.

No aguardo

up