Userforms - same dblclick event for multiple controls

Hello all,

on a small userform I have about 35 similar label, where a double-click on any of them should update a single textbox.
I know I could assign something like :

Private Sub label1_dblclick (....)
bla bla bla
end sub

to each label individually, but can I assign one even to all of them?

thanks for the help
michael

You use a class to create an object that subscribes to the events raised by the labels, something like:
Class1:

Option Explicit
Private WithEvents p_lbl As MSForms.label

Public Property Set label(lbl As MSForms.label)
    Set p_lbl = lbl
End Property

Private Sub p_lbl_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "Hello"
End Sub

Userform:

Option Explicit
Dim eventHandlers As Collection

Private Sub UserForm_Initialize()
    
    Dim h   As Class1
    Dim ctl As Control
    
    Set eventHandlers = New Collection
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.label Then
            Set h = New Class1
            Set h.label = ctl
            eventHandlers.Add h
        End If
    Next ctl
    
End Sub

Beautiful! Does exactly what I need it to

Thanks a lot. the Userform code is a bit beyond me at the moment, but Ill sit down and try and figure it out later

Cheers
Michael

Glad it helps