动态生成控件

[jackclh]

窗体中有一Frame控件,Frame控件内有一个Text控件.当我用Load在当前窗体上动态生成一个新的Frame控件时,怎样在Frame控件内再生成一个Text控件?
(第一个答对者有分)

[jackclh]

补充说明:
当前窗体为空白,没有任何控件.Frame控件以及其内的Text控件都是新生成的.怎样在窗体中新增一个Frame控件,然后再在Frame控件中生成一个Text控件(此文本框包含在Frame控件中)

[leolan]

Load Text1(1)
Set Text1.Container = Frame1(1)
Text1.Visible = True

[lxcc]

Dim WithEvents frame1 As Frame
Dim WithEvents text1 As TextBox

Private Sub Command1_Click()
Set frame1 = Controls.Add("VB.Frame", "frame1")
frame1.Left = 350
frame1.Top = 350
frame1.Width = 3000
frame1.Height = 3000
frame1.Visible = True

Set text1 = Controls.Add("VB.TextBox", "text1")
text1.Left = -200
text1.Top = -200
text1.Visible = True
Set text1.Container = frame1
End Sub