Private Labels As New Collection

Private Sub PutEvent()
Dim contr As Control
   For Each contr In Forms(Me.Name).Controls
       If TypeName(contr) = "Label" Then
              With New ClassLabel
                Call .Initialize(contr, True)
                Labels.Add .Instance
              End With
       End If
   Next
End Sub

Const EP As String = "[Event Procedure]"
Private WithEvents cmd As Access.Label

Public Sub Initialize(lab As Access.Label)
    Set cmd = lab
       With cmd
         '  .OnMouseDown = EP
         '  .OnMouseUp = EP
          .OnClick = EP
         '  .OnDblClick = EP
         '  .OnMouseMove = EP
       End With
End Sub

Public Property Get Instance() As ClassLabel
    Set Instance = Me
End Property

Private Sub Class_Terminate()
    Set cmd = Nothing
End Sub

Private Sub cmd_Click()
MsgBox cmd.Name
End Sub