Dynamically add a Frame within a Frame

[anuragsapanbharat]

Hi,

I have been trying to create a runtime frame control, which I am having issue to create within another existing frame.
When I am adding a frame to the Userform Set cCont = Me.Controls.Add("Forms.frame.1", "NewFrame") its working fine. But the same is not working for the below code Set cCont = Frame1.Controls.Add("Forms.frame.1", "NewFrame"), where Frame1 is already there on the form. I am getting Automation error. the object invoked disconnected from its clients.

I searched google but there is no solution for the same. Please help.

 

[mikerickson]

This worked fine for me.

Dim cCont As MSForms.Control

Set cCont = Me.Frame1.Controls.Add("Forms.Frame.1","NewFrame")

With cCont
    .Top = 5: .Left = 2
    .Height = 50: .Width = 100
    .Caption = "Run Time"
End With

I'm curious about the name. Why are you giving the new frame a fixed name? You already "have" the frame in a variable.
It may not be the actual creation of the frame that is causing an error, but something downstream.

 

[Domenic]

If you're creating the frames in separate procedures, try...

Set cCont = Me.Controls.Add("Forms.Frame.1", "Frame1")

and

Set cCont = Me.Controls("Frame1").Controls.Add("Forms.Frame.1", "Frame2")

Within the same procedure, try...

    Dim Frame1 As MsForms.Frame
    Dim Frame2 As MsForms.Frame
    Set Frame1 = Me.Controls.Add("Forms.Frame.1", "MyFrame1")
    Set Frame2 = Frame1.Controls.Add("Forms.Frame.1", "MyFrame2")

Hope this helps!