vba窗体在运行的时候动态添加控件的代码

　　一、动态添加CommandButton命令按钮

　　Dim mc As CommandButton

　　Static k

　　k = k + 1

　　Set mc = Me.Controls.Add("Forms.Commandbutton.1")

　　mc.Caption = k

　　mc.Top = Me.Controls(k - 1).Top + Me.Controls(k - 1).Height

　　Me.Controls.Remove "Commandbutton1"

　　二、动态添加文本框

　　Set myText = Controls.Add( "VB.TextBox ", "myTextBox ")

　　With myText

　　.Visible = True

　　.Text = "这是加载的动态控件 "

　　.Width = 3200

　　End With