点击按钮后在Frame1中新建一个文本框的例子：
Private Sub Command1_Click()
Dim txt1 As TextBox
Set txt1 = Me.Controls.Add("VB.TextBox", "txt1")
Set txt1.Container = Frame1
txt1.Move 360, 360, 3600, 600
txt1.Text = "新建的文本框"
txt1.Visible = True
End Sub
给你啊一个样子，你自己看。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024