Listbox Created In Runtime - _Click event not triggering

[Ark68]

I'm creating a listbox at runtime for my user form ...

public cCont as Control

Private Sub UserForm_Initialize()
   
    Dim temp_ws As Worksheet
    Set temp_ws = wb_sched.Worksheets("temp_ws")
    Set cCont = Me.Controls.Add _
            ("Forms.Listbox.1", "lb_mrexcel")
    ...

    With Me
        With cCont
            .Left = 14
            .Top = 417
            .Height = 76.55
            .Width = 215.25
            .Locked = False
            .ForeColor = RGB(0, 52, 89)
            .ColumnCount = 4
            .ColumnWidths = "30;100;80;95"
            .List = Range("missing_all").Value
            .ListStyle = fmListStylePlain
            .MultiSelect = fmMultiSelectSingle
        End If
    End With
    ...
End Sub

However, when I click on this newly created listbox, the control_click does not trigger.

Private Sub cContl_Click()
    
    If Not mbEvents Then Exit Sub
    mbEvents = False
    Debug.Print Me.Name, "lb_mrexcel_Click() called"
    
    With cCont
        Debug.Print Me.Name, "lb_mrexcel_Click() ListIndex: " & .ListIndex & " (" & .List(.ListIndex) & ")"
        agf = 1 'referred to from uf2_assess_sched
        group_1.Show
    End With
    mbEvents = True
End Sub

Anyone have any idea where I'm going wrong?

 

[Ark68]

Private Sub cContl_Click()

should be

Private Sub cCont_Click()

... but that still made no difference.

 

[Jaafar Tribak]

Change the first code line :

[COLOR=#574123]public cCont as Control[/COLOR]

To:

Private WithEvents cCont  As MSForms.ListBox

 

[Ark68]

Hi Jaafar, thank you for your suggestion.

I put your suggested code in the userform initialize routine of my userform. I'm getting an error: "Invalid attribute in Sub or Function".
My original public declaration for cCont was in a module executed when my workbook opened ... basically a routine that defines and sets all my public variables. When I tried to substitute the original code with yours there, I was told I could only use it in object code, which is why I put it in my initialize code.

 

[RoryA]

It needs to be at the top of the userform module, not inside any routine.

 

[Ark68]

Oh ... ok. I see. Thank you Rory!