在编写应用程序的过程中,根据实际需要,有时候需要动态地创建控件。如在下面的程序代码,在单击按钮控件时可以动态地创建一个文本框控件。
Dim WithEvents txtTotal As TextBox
Private Sub Command1_Click()
Set txtTotal = Controls.Add("VB.TextBox", "txtTotal") ' 创建新的TextBox控件
txtTotal.Move 1000, 800, 1200, 300
txtTotal.Visible = True
End Sub