Dynamic Controls with event handlers

[stuart010]

Hi All,

I have been looking at a way to add event handlers to control items I have dynamically created at run time. The userform I have created acts like a wizard for the end user and allows them to streamline their process by having pre-defined information stored within a sheet that will pull though when certain information has been selected. The number of required control items is unknown so this would be the preferred option for me. Again, any help on where I may have gone wrong (Code below) would be much appriciated.

The focus area on which I appear to be having the issue is within the "Addline" procedure (Paticularly the lines :Dim LR As New LineRemover, Set LR.Control = Cheb(iCount)).

The Cheb(iCount) control value passes a "False" value and does not update the useform when I select the paticular item.

Apologies if my code is a bit messy!

My Userform Code

Please Login or Register  to view this content.

My Class Module Code Titled "LineRemover"

Please Login or Register  to view this content.

[JosephP]

you might wanna post a workbook.

[Leith Ross]

Hello stuart010,

After looking over your code, you don't instantiate the new class and assign the new objects to existing ones on the UserForm. The attached workbook is a example of how to properly use the WithEvents in a Class module and assign the new class objects to existing ones. The code below is already added to the attached workbook.

Class Module - chkboxClass

Please Login or Register  to view this content.

UserForm1 Code

Please Login or Register  to view this content.

[stuart010]

Hi Leith,

Thanks for the reply, your code was enough to help me understand what I needed to do to acheive the result.

Regards

Stuart