Creating Userform Controls on Frame

Hi all,

How can I create "on the fly" other controls on a Frame, if the frame itself
is to be created on the fly. The following code (simplified to create a
CheckBox on a Frame) failed.

Private Sub Userform_Initialize()
Dim x as Control, y as Control
Set x = Me.Controls.Add("Forms.Frame1.1")
Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
End Sub

The code balks at "Frame1" with "Method or data member not found" error
message. Apparently, the code fails to detect the Frame purported to have
been created earlier.

Any help will be appreciated.

The code you purport to partially work appears to have errors. Anyway, this
worked for me:

Private Sub Userform_Initialize()
Dim x As Control, y As Control
Set x = Me.Controls.Add("Forms.Frame.1", Name:="Frame1")
Set y = x.Controls.Add("Forms.CheckBox.1", Name:="Chkbx1")
End Sub

--
Regards,
Tom Ogilvy


"David Myle" <[email protected]> wrote in message
news:[email protected]...
> Hi all,
>
> How can I create "on the fly" other controls on a Frame, if the frame
itself
> is to be created on the fly. The following code (simplified to create a
> CheckBox on a Frame) failed.
>
> Private Sub Userform_Initialize()
> Dim x as Control, y as Control
> Set x = Me.Controls.Add("Forms.Frame1.1")
> Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
> End Sub
>
> The code balks at "Frame1" with "Method or data member not found" error
> message. Apparently, the code fails to detect the Frame purported to have
> been created earlier.
>
> Any help will be appreciated.
>
>

Many thanks Tom.

DM


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> The code you purport to partially work appears to have errors. Anyway,
this
> worked for me:
>
> Private Sub Userform_Initialize()
> Dim x As Control, y As Control
> Set x = Me.Controls.Add("Forms.Frame.1", Name:="Frame1")
> Set y = x.Controls.Add("Forms.CheckBox.1", Name:="Chkbx1")
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "David Myle" <[email protected]> wrote in message
> news:[email protected]...
> > Hi all,
> >
> > How can I create "on the fly" other controls on a Frame, if the frame
> itself
> > is to be created on the fly. The following code (simplified to create a
> > CheckBox on a Frame) failed.
> >
> > Private Sub Userform_Initialize()
> > Dim x as Control, y as Control
> > Set x = Me.Controls.Add("Forms.Frame1.1")
> > Set y = Me..Frame1.Controls.Add("Forms.CheckBox1.1")
> > End Sub
> >
> > The code balks at "Frame1" with "Method or data member not found" error
> > message. Apparently, the code fails to detect the Frame purported to
have
> > been created earlier.
> >
> > Any help will be appreciated.
> >
> >
>
>