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

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

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

Regards,
Peter T

"Brandt" <(E-Mail Removed)> wrote in message
news73F4F50-AB40-40DD-A91C-(E-Mail Removed)...
> 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

Thank You Peter

"Peter T" wrote:

> Set NewOptBtn = _
> MyForm.Designer.Controls("MultiPage1").Pages(0).Add("forms.OptionButton.1")
>
> Assuming "Page1" is the first page its index is 0
>
> Regards,
> Peter T
>
> "Brandt" <(E-Mail Removed)> wrote in message
> news73F4F50-AB40-40DD-A91C-(E-Mail Removed)...
> > 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
>
>
>