Formulario en tiempo de diseño

Hola a todos:

Estoy trabajando en la creación de formularios en tiempo de diseño con VBA.

El siguiente código lo realiza
[VBA]Sub Test()
Dim Frm As Object
Dim Frame As MSForms.Frame
Dim OptionB As MSForms.OptionButton


Set Frm = ThisWorkbook.VBProject.VBComponents.Add(3)

Set Frame = Frm.designer.Controls.Add("Forms.frame.1")
With Frame
.Name = "Frame1"
.Caption = "Frame1"
.Top = 5
.Left = 5
.Width = 75
.Height = 40
End With

Set OptionB = Frm.designer.Controls.Add("Forms.optionbutton.1")

With OptionB
.Name = "OButton1"
.Caption = "Female"
.Top = 15
.Left = 80
.Width = 60
.Height = 16
End With

Set OptionB = Frm.designer.Controls.Add("Forms.optionbutton.1")

With OptionB
.Name = "OButton2"
.Caption = "Male"
.Top = 15
.Left = 140
.Width = 60
.Height = 16
End With

VBA.UserForms.Add(Frm.Name).Show
ThisWorkbook.VBProject.VBComponents.Remove Frm

End Sub
[/VBA]

Mi problema consiste en que no se como insertar los optionbutton en el frame.

Agradecería alguna orientación.

Gracias de antemano.

Perdón. He querido decir "formulario en tiempo de EJECUCIÓN"
Busco el botón para editar el post "Edit" pero por más que lo busco, no aparece.