'动态加载控件
Private Sub Command1_Click()
Set myText = Controls.Add("VB.TextBox", "myTextBox")
With myText
.Visible = True
.Text = "这是加载的动态控件"
.Width = 3200
End With
End Sub
'编程动态控件的事件
Private Sub myText_Change()
MsgBox "你改变了" & myText.Name & "的内容。", vbInformation
End Sub