在名称为Form1的窗体上画1个名称为Label1，标题为"口令"的标签；画一个名称为Text1的文本框；再画三个命令

代码在线添加控件。 Dim WithEvents Text1 As TextBox Dim WithEvents Label1 As Label Dim WithEvents Command1 As CommandButton '注意：这三句必须是全局声明，也就是在代码的最顶端通用的部分 Private Sub Form_Load() Set Text1 = Me.Controls.Add("VB.TextBox", "Text1")