Including Objects within a Frame 2

[peterpcu]

Hi,

Building on the excellent help provided by Tony Jollans and Fane Duru, I can now generate a whole range of objects on a new userform - fantastic!

However, when I add a frame to the userform it covers the objects rather than enclosing them.

I have tried altering the order of when the frame is added but to no avail. Aslo I can't see anything in the properties of a frame or objects for that matter which assists with using a frame to surround objects - Any Ideas?

Some sample code indicating where I have got to so far is:-

Dim cmd1 As MSForms.CommandButton
Dim lbl1 As MSForms.Label
Dim chk1 As MSForms.CheckBox
Dim Fra1 As MSForms.Frame
Set Screen01 = ThisWorkbook.VBProject.VBComponents.Add(3)
With Screen01
.Properties("Caption") = "Screen01"
.Properties("Width") = 460
.Properties("Height") = 400

End With
Set Fra1 = Screen01.Designer.Controls.Add("forms.frame.1")
With Fra1
.Caption = "Title Text"
.Font.Bold = True
.Font.Size = 14
.Left = 10
.Top = 10
.Width = 420
.Height = 240
.Name = "Fra1"
End With
Set cmd1 = Screen01.Designer.Controls.Add("forms.CommandButton.1")
With cmd1
.Caption = "Quit"
.Left = 390
.Top = 300
.Width = 42
.Height = 24
.Name = "cmd1"
End With
Set lbl1 = Screen01.Designer.Controls.Add("Forms.label.1")
With lbl1
.Caption = "text"
.Left = 240
.Top = 50
.Width = 100
.Height = 14
.Font = "verdana"
.Font.Size = 14
End With
Set chk1 = Screen01.Designer.Controls.Add("Forms.checkbox.1")
With chk1
.Left = 240
.Top = 133
End With
VBA.UserForms.Add(Screen01.Name).Show



If this code is run you will see that the frame covers the two objects even though the frame was added first.


Regards

PCU

 

[PHV]

Have you tried Fra1.Controls.Add ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[rmikesmith]

PCU,

Try this modified code to add your CheckBox within the Frame control:

  Set chk1 = [b]Fra1[/b].Controls.Add("Forms.checkbox.1")
    With chk1
        .Left = 240
        .Top = 133
    End With

Regards,
Mike

 

[peterpcu]

Many thanks to PHV and Mike Smith - your suggestions are exactly what I was looking for and work extreamely well.

Regards

Pete