在Visual Basic中，动态添加控件数组通常涉及到以下几个步骤：
1. 声明控件数组变量。
2. 使用Load方法创建控件实例。
3. 将新创建的控件添加到控件数组中。
以下是一个简单的示例，演示如何在VB中动态添加一个按钮控件到控件数组中：
```vb
Public Class Form1
' 声明控件数组变量
Dim btnArray() As Button
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' 初始化控件数组
ReDim btnArray(0)
btnArray(0) = New Button
btnArray(0).Parent = Me
btnArray(0).Text = "Button 1"
btnArray(0).SetBounds(10, 10, 100, 50)
btnArray(0).Visible = True
End Sub
Private Sub AddButton_Click(sender As Object, e As EventArgs) Handles AddButton.Click
' 创建新的按钮实例
Dim newButton As New Button
newButton.Text = "Button " & (btnArray.Length + 1)
newButton.SetBounds(10, 70 (btnArray.Length 1), 100, 50)
' 将新按钮添加到控件数组中
ReDim Preserve btnArray(btnArray.Length)
btnArray(btnArray.Length 1) = newButton
End Sub
End Class
```
在这个例子中，我们首先在`Form1`类中声明了一个按钮控件数组`btnArray`。在`Form1_Load`事件中，我们初始化了数组的第一个元素，并设置了其属性。然后，我们添加了一个按钮，当用户点击这个按钮时，会触发`AddButton_Click`事件。
在`AddButton_Click`事件处理程序中，我们创建了一个新的按钮实例，并设置了其属性。然后，我们使用`ReDim Preserve`语句来扩展控件数组的尺寸，并将新按钮添加到数组中。注意，`SetBounds`方法用于设置新按钮的位置，这里我们假设每个按钮垂直排列，每个按钮之间的间隔为70像素。
这样，每次点击“Add Button”按钮时，都会在窗体上添加一个新的按钮，且按钮会自动添加到控件数组中。
