Dynamically Adding a ComboBox to a Page on a userform

[shennricks]

I'm trying to create code that adds a combobox to a multipage on a userform. I've tried copied examples I am seeing online but getting an error:

Dim newTextBox
Dim MyPage
Dim MultiPage1

Set MyPage = Item.GetInspector.ModifiedFormPages("P.2")
Set MultiPage1 = MyPage.MultiPage1

Set newTextBox = MultiPage1.Pages("Chamber 1").Controls.Add("Forms.TextBox.1", 1)


When I get to the 'Set MyPage line I'm getting an error saying that variable is not found for 'Item'. Not seeing in the examples where this is supposed to be defined. I'm not entirely sure what is going on with this piece of code.

 

[John_w]

Try this:

    Dim cb As ComboBox

    With Me.MultiPage1.Pages(1)  'page 2
        Set cb = .Controls.Add("Forms.ComboBox.1")
        With cb
            .Top = 5
            .Left = 5
            .Height = 15
            .Width = 100
        End With
    End With