[转载]在VB中动态添加控件

代码如下：

主要功能是在FORM上动态添加一个或多个控件。

 1 Option Explicit
 2 Dim oCtrl As Object
 3 '使得控件可以响应事件
 4 Dim WithEvents MyBtn As CommandButton
 5 Private Sub Form_Load()
 6 Dim i As Integer
 7     '先在窗体上加载个Label1(0)的标签控件
 8     For i = 1 To 3
 9         Load Me.Label1(i)
10         Label1(i).Top = Label1(i - 1).Top + 2 * Label1(0).Height
11         Label1(i).Caption = "Label1(" & i & ")"
12         Label1(i).Visible = True
13     Next
14     'Debug.Print Me.Label1.Count
15     LoadControl
16     LoadControlWithEvents
17 End Sub
18 Private Sub LoadControl()
19     Set oCtrl = Controls.Add("VB.CommandButton", "Button1")
20     With oCtrl
21         .Caption = "不会响应事件的按钮"
22         .Width = 2000
23         .Left = 100
24         .Top = 200
25         .Visible = True '控件加载后默认为不可见，故此步骤至关重要！
26     End With
27 End Sub
28 Private Sub LoadControlWithEvents()
29     Set MyBtn = Controls.Add("VB.CommandButton", "Button2")
30     With MyBtn
31         .Caption = "我可以响应事件！"
32         .Width = 1800
33         .Left = 100
34         .Top = 700
35         .Visible = True
36     End With
37 End Sub
38 Private Sub MyBtn_Click()
39     MsgBox "我要移除动态加载的控件了！"
40     Me.Controls.Remove "Button1"
41     Me.Controls.Remove "Button2"
42 End Sub

引自：百度知道－http://zhidao.baidu.com/question/5248806.html&__bd_tkn__=6fbc413b2a218731570caa66aeac19fe880c91fa8078338d51fed8133ea5c69d362ad36bb4bcda3b39bb3949f6bbe47087ac3af56e60b1f4e7eb60157d5ef93a9567afe6065506c64a7e3108d146ba0f3a70ee030f59c3fed43d40740029445fca170e4649c7d8d9e919fdb9cfde800ec9342bf0