Rem. Ne pas utiliser ces autres procédures: elles sont à l'usage exclusif des objets Rythmeur.
Public Function IdtRythmeurLancé(ByVal Ryth As Rythmeur, ByVal FréqHz As Double, ByRef Tac As Long) As Long
Dim P As Long, M As Long
On Error Resume Next: M = UBound(TRythmeurs): If Err Then ReDim TRythmeurs(1 To 1): M = 1
On Error GoTo 0
For P = 1 To M: Idt = Idt Mod M + 1: If TRythmeurs(Idt) Is Nothing Then Exit For
Next P: If P > M Then ReDim Preserve TRythmeurs(1 To P): Idt = P
Set TRythmeurs(Idt) = Ryth
SetTimer Application.HWnd, Idt:=Idt, DuréeMS:=Int(1000 / FréqHz + 0.5), AdrSub:=AddressOf TimerProc
Tac = GetTickCount
IdtRythmeurLancé = Idt
End Function