vb中如何通过代码创建控件

Question

比如在程序执行当中创建出一个叫做lbl_1的label控件
那要怎么写？

Answer 1

控件是在编程过程中放置在窗体上的，放置后可以修改控件的名称（通过控件属性窗口或在程序代码中修改），不能用程序代码直接产生控件，当然如果已经有控件存在，通过代码动态产生控件数组是可以的。
如果你必须在运行过程中“创建”控件，唯一的方法是在窗体放置lbl_1的label控件 ，首先在代码中：lbl_1.Visible =False ,然后在需要显示时lbl_1.Visible =True

Answer 2

Option Explicit
Private WithEvents NewButton As CommandButton
'通过使用WithEvents关键字声明一个对象变量为新的命令按钮

Private Sub Command1_Click()
If NewButton Is Nothing Then
Set NewButton = Controls.Add("VB.CommandButton", "cmdNew", Form1)
'增加新的按钮cmdNew
NewButton.Move Command1.Left + Command1.Width + 240, Command1.Top
'确定新增按钮cmdNew的位置
NewButton.Caption = "动态添加的按钮"
NewButton.Visible = True
'显示该按钮
End If
End Sub

Private Sub Command2_Click()
If NewButton Is Nothing Then
Exit Sub
Else
Controls.Remove NewButton
Set NewButton = Nothing
End If
End Sub

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
Set NewButton = Controls.Add("VB.CommandButton", "Cmd" & i, Form1)
'增加新的按钮cmdNew
NewButton.Move 100 + i * 500, 500, 500, 120
'确定新增按钮cmdNew的位置
NewButton.Caption = i
NewButton.Visible = True
Next i
End Sub

Private Sub NewButton_click()
MsgBox "这是动态增加的按钮，你可以单击“删除控件”按钮删除它", vbDefaultButton1, "Click"
End Sub

Private Sub cmd1_click()
End
End Sub
你参考一下,这是创建Command 的