Multiple With Events

[AlexanderBB]

I'm creating a number of List Boxes at run time, depending on Side

Set cControl = MyForm.Frame1.Controls.Add("Forms.ListBox.1", "lst" & Side, True)

This is working ok, but I've struck unknown territory adding their Click Event code.
After some googling I've managed to get one listbox event working. In Module Declarations I have Public ObjEvents() As New clsEvents.

Then after the line above where cControl is Set

Set ObjEvents.lbEvents = cControl

Then in class module

Option Explicit
Public WithEvents lbEvents As MSForms.ListBox
Private Sub lbEvents_Click()
    MsgBox "Clicked"
End Sub

How can I modify this so it works with all Listboxes, "lst1", "lst2" etc. as per value of Side ?
Thanks for any help. First time using WithEvents.

 

[DanteAmor]

Try this option:

In Module Declarations Change Public by Dim

I don't know how your Side variable works, but I guess it is increasing from 1 to 1.

Dim ObjEvents() As New clsEvents

Private Sub CommandButton1_Click()
  Dim cControl As MSForms.ListBox

  Set cControl = MyForm.Frame1.Controls.Add("Forms.ListBox.1", "lst" & Side, True)
  ReDim Preserve ObjEvents(1 To Side)
  Set ObjEvents(Side).lbEvents = MyForm.Controls("lst" & Side)
End Sub