control inside 1

[plusminus]

Please, answer me
How to put controls inside a frame control at run time

 

[SkipVought]

Hi,
Try this...

    Dim Mycmd As Control
    Set Mycmd = UserForm1.Frame1.Controls.Add("Forms.OptionButton.1")
    With Mycmd
        .Width = 15
        .Height = 10
        .Top = UserForm1.Frame1.Height - .Height - 5
        .Left = UserForm1.Frame1.Width - .Width - 5
    End With

Puts an option box in lower r-h corner of frame
VOLA!
Skip,
metzgsk@voughtaircraft.com

 

[plusminus]

Hi. Thank you for your answer.
I use VBA (MS Word). FrmFounders is my form.
I create Frame Control named myFrame >dynamically<.
That is why, I think, this code doesn't work:

    Private Sub UserForm_Initialize()
    Dim MyFrame As Object
    Dim MyCmd As Object
    Set MyFrame = frmFounders.Controls.Add("Forms.Frame.1")
    With MyFrame
        .Name = "MyFrame"
        .Left = 20
        .Top = 20
        .Width = 40
        .Height = 50
        .Caption = ""
        .Visible = True
    End With
    Set MyCmd = frmFounders.MyFrame.Controls.Add("Forms.OptionButton.1")
    With MyCmd
        .Width = 15
        .Height = 10
        .Top = frmFounders.MyFrame.Height - .Height - 5
        .Left = frmFounders.MyFrame.Width - .Width - 5
    End With
End Sub

=> Compile error:
Set MyCmd = frmFounders.MyFrame.Controls.Add(&quot;Forms.OptionButton.1&quot
Method or data member not found (Error 461)

 

[plusminus]

Thanks
The problem is resolved