Creating Userform Controls on Frame

[David Myle]

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.

 

[Tom Ogilvy]

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

 

[David Myle]

Many thanks Tom.

DM

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