vb中，请问怎样在程序中往窗体中动态添加控件？

Question

Form1.Controls.Add "VB.Label", "Label1"
   With Form1!Label1
      .Visible = True
      .Width = 2000
      .Caption = "Label1"
      .Top = 0
      .Left = 0
   End With
End Sub

Answer 1

我的想法就是将你的Label控件置成空的如果需要的时候在向里面放入字符串，或者将Label置成不可见的用的时候再 Label1.Visible =True 就可以了。没有必要动态的吧，把你需要的东东都放到窗体上在都设置成为不可见的，用到那个那个就可以见到不是实现起来更加简单程序也稳定。

Answer 2

dim t as textbox
set t = Controls.add( "vb.textbox","text1")
t.visible = true

Answer 3

在运行时，可用 Load 和 Unload 语句添加和删除控件数组中的控件，然而，添加的控件必须是现有控件数组的元素。必须在设计时创建一个（在大多数情况下）Index 属性为 0 的控件，然后在运行时使用如下语法：Load object(index%)在运行时，可用 Load 和 Unload 语句添加和删除控件数组中的控件，然而，添加的控件必须是现有控件数组的元素。必须在设计时创建一个（在大多数情况下）Index 属性为 0 的控件，然后在运行时使用如下语法：Load object(index%)Unload object(index%)参数 描述 
object 在控件数组中添加或删除的控件名称。 
index% 控件在数组中的索引值。 
加载控件数组的新元素时，大多数属性设置值将由数组中具有最小下标的现有元素复制─ 本例中是索引值为 0 的元素。因为不会自动把 Visible、Index 和 TabIndex 属性设置值复制到控件数组的新元素中，所以，为了使新添加的控件可见，必须将其 Visible 属性设置为 True。