在編寫應用程序的過程中，根據實際需要，有時候需要動態地創建控件。如在下面的程序代碼，在單擊按鈕控件時可以動態地創建一個文本框控件。
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
