Adding an Object to a MultiPage
 

I can add an optionbutton to a UserForm via the code below. What I am trying
to do, however, is to add the option button to "Page1" of "MultiPage1" of
"UserForm1". I can't seem to get this to work. Any Ideas?

Thanks

Sub AddOptionButton()
Dim MyForm
Dim NewOptBtn As Msforms.OptionButton

Set MyForm = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set NewOptBtn = MyForm.Designer.Controls.Add("forms.OptionButton.1 ")
End Sub

Adding an Object to a MultiPage
 

Set NewOptBtn = _
MyForm.Designer.Controls("MultiPage1").Pages(0).Ad d("forms.OptionButton.1")

Assuming "Page1" is the first page its index is 0

Regards,
Peter T

"Brandt" wrote in message
...
I can add an optionbutton to a UserForm via the code below. What I am
trying
to do, however, is to add the option button to "Page1" of "MultiPage1" of
"UserForm1". I can't seem to get this to work. Any Ideas?

Thanks

Sub AddOptionButton()
Dim MyForm
Dim NewOptBtn As Msforms.OptionButton

Set MyForm = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set NewOptBtn = MyForm.Designer.Controls.Add("forms.OptionButton.1 ")
End Sub

Adding an Object to a MultiPage
 

Thank You Peter

"Peter T" wrote:

Set NewOptBtn = _
MyForm.Designer.Controls("MultiPage1").Pages(0).Ad d("forms.OptionButton.1")

Assuming "Page1" is the first page its index is 0

Regards,
Peter T

"Brandt" wrote in message
...
I can add an optionbutton to a UserForm via the code below. What I am
trying
to do, however, is to add the option button to "Page1" of "MultiPage1" of
"UserForm1". I can't seem to get this to work. Any Ideas?

Thanks

Sub AddOptionButton()
Dim MyForm
Dim NewOptBtn As Msforms.OptionButton

Set MyForm = ThisWorkbook.VBProject.VBComponents("UserForm1")
Set NewOptBtn = MyForm.Designer.Controls.Add("forms.OptionButton.1 ")
End Sub