footballboy(郑创斌) 在吗？请高手进来看看，帮我解决一下

Question

Container 属性
      返回或设置 Form 上控件的容器。在设计时不能使用。语法Set object.Container [= container]Container 属性的语法包含下面部分：部分 描述 
object 对象表达式，其值是“应用于”列表中的一个对象。 
container 一个对象表达式其值是能够作为别的控件容器使用的对象，按照说明的描述。 
说明下面的控件能够容纳别的控件： Frame 控件
PictureBox 控件.
SSTab 控件 

Answer 1

.....
Set Lbl = Controls.Add("VB.LABEL", "label1")
Set Lbl.Container = frameobject
.....

Answer 2

但是我的frame也是动态生成的呀，我试了你们的方法但是不行，如果frame是静态的那是可以的，但动态的就不行了，请问怎么解决呢

Answer 3

应该行的，试试以下代码，点按钮2可以看到lbl是随FrameObject一起移动的
  
'Dim WithEvents frameobject As Frame
Dim frameobject As FramePrivate Sub Command1_Click()
  Set frameobject = Form1.Controls.Add("VB.Frame", "Frame_One")
  frameobject.Visible = True
  frameobject.Caption = "动态创建的Frame"
  frameobject.Width = 3000
  frameobject.Height = 4000
  frameobject.Top = 800
  frameobject.Left = 800
  frameobject.FontSize = 10
  
  Set lbl = Controls.Add("VB.LABEL", "label1")
  lbl.Visible = True
  lbl.Caption = "asdfghj"
  lbl.Top = 500
  lbl.Left = 500
  Set lbl.Container = frameobject
End SubPrivate Sub Command2_Click() '移动FrameObject,lbl也会一起移动
  frameobject.Move frameobject.Left + 100, frameobject.Top + 0
End Sub