如何在运行过程中动态能够添加一个控件？？？？？

Question

private withevents myButton  as CommandButtonset myButton=me.controls.add("VB.CommandButton","myButton")
mybutton.visible=true

Answer 1

Private WithEvents Text1 As TextBox
    
Private Sub Form_Load()
    Set Text1 = Me.Controls.Add("VB.TextBox", "Text1")
    Text1.Left = 120
    Text1.Top = 120
    Text1.Width = 1000
    Text1.Height = 300
    Text1.Visible = True
End Sub
Private Sub Text1_Change()
    MsgBox "Change"
End Sub