Need to link up controls on a userform created at runtime with code

[Glory]

It’s been suggested to me that I use a class module to accomplish this. It makes sense given what I’ve been reading about class modules. But I can’t get off the ground.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Do I start by creating a sub that will act as a method in the class module, which will create new controls on the userform I’m working with?
<o> </o>
I can’t figure out how to call the sub in the class module. “Call ClassModuleName.ProcedureName” isn’t working?
<o> </o>
Can anyone offer me any help?

 

[Glory]

Both variables have to be passed to that single initialization procedure as separate arguments? I never would have gotten the answer, thank you, thank you.

 

[Glory]

I only just discovered each "WithEvents" statement has to be on a separate line in the module-level declarations, that broke some click events for a while.

I've added a checkbox to the multipage, but now the click event doesn't trigger. I'm still working with it, but I'm not sure what's going wrong.

'Userform2 initialization
Private mp As Object
Private checker1, mp1 As Class2
Private Sub UserForm_Initialize()
    Dim theClass1 As New Class2
    Dim checker1 As MSForms.CheckBox
    Dim mp As MSForms.MultiPage
    Set mp = Me.Controls.Add("forms.Multipage.1")
    With mp
        .Height = 120
        .Left = 6
        .Top = 6
        .Width = 162
        .Pages.Remove (1)
        .Pages(0).Controls.Add ("forms.Checkbox.1")
    End With
    With mp.Pages(0).Controls(0)
        .Height = 22
        .Left = 6
        .Top = 12
        .Width = 72
        .Name = "CheckBox1"
        .Caption = "CheckBox1"
    End With
    Set checker1 = mp.Pages(0).Controls(0)
    theClass1.Init checker1, mp
End Sub

'Class2 module code
Private WithEvents cb As MSForms.CheckBox
Private WithEvents Mult As MSForms.MultiPage
Private WithEvents Mult2 As MSForms.MultiPage
Public Sub Init(ByVal CBox As MSForms.CheckBox, Multi As MSForms.MultiPage)
    Set cb = CBox
    Set Mult = Multi
End Sub
Public Sub cb_Click()
If cb.Value = True Then
    Mult.Pages.Add
End If
End Sub

 

[Glory]

I pasted an old version of the code by mistake with some issues in it I had already worked out. Here's the current version.

[COLOR=seagreen]'Userform object module[/COLOR]
 
Private mp As Object
Private checker1, mp1 As Class2
Private Sub UserForm_Initialize()
    Dim theClass1 As New Class2
    Dim checker1 As MSForms.CheckBox
    Dim mp As MSForms.MultiPage
    Set mp = Me.Controls.Add("forms.Multipage.1")
    With mp
        .Height = 120
        .Left = 6
        .Top = 6
        .Width = 162
        .Pages.Remove (1)
        .Pages(0).Controls.Add ("forms.Checkbox.1")
    End With
    With mp.Pages(0).Controls(0)
        .Height = 22
        .Left = 6
        .Top = 12
        .Width = 72
        .Name = "CheckBox1"
        .Caption = "CheckBox1"
    End With
    Set checker1 = mp.Pages(0).Controls(0)
    theClass2.Init checker1, mp
End Sub

[COLOR=seagreen]'Class2 module[/COLOR]
 
Private WithEvents cb As MSForms.CheckBox
Private WithEvents mult As MSForms.MultiPage
Public Sub Init(ByVal CBox As MSForms.CheckBox, Multi As MSForms.MultiPage)
    Set cb = CBox
    Set mult = Multi
End Sub
Public Sub cb_Click()
If cb.Value = True Then
    MsgBox "Hey"
    'Mult.Pages.Add
End If
End Sub

I think the source of the problem might have something to do with the control "CheckBox1" being declared as type "MSForms.Checkbox" while it is simultaneously a member of a controls collection for a different object...?

Whatever it is, it's stopped me cold.

 

[Glory]

Never mind, I think I got it. Got the set and declaration mixed up for the class instantiation, among other things.

 

[Glory]

Private WithEvents cb As MSForms.CheckBox
Private WithEvents mult As MSForms.MultiPage
Public Sub Init(ByVal CBox As MSForms.CheckBox, Multi As MSForms.MultiPage)
    Set cb = CBox
    Set mult = Multi
End Sub
Public Sub cb_Click()
If cb.Value = True Then
    mult.Pages.Add
End If
End Sub

Private theClass As Class2
Private mp As MSForms.MultiPage
Private a As MSForms.CheckBox
Private Sub UserForm_Initialize()
    Set mp = Me.Controls.Add("forms.Multipage.1")
    With mp
        .Height = 120
        .Left = 6
        .Top = 6
        .Width = 162
        .Pages.Remove (1)
    End With
    Set a = mp.Pages(0).Controls.Add("forms.Checkbox.1")
    With a
        .Height = 22
        .Left = 6
        .Top = 6
        .Width = 72
        .Name = "CheckBox1"
        .Caption = "CheckBox1"
    End With
    Set theClass = New Class2
    theClass.Init a, mp
End Sub

Ignore everything I wrote between your last post and this one, except the gratitude. Without your example I never would have worked this through.