从VB6.0转为VB.net发现以前那套创建控件数组的方法不灵了，还以为VB.net不能创建控件数组，其实不是这样的，VB.net创建控件数组，只是方法变了，VB6.0转来的朋友习惯就好。
其实当我们把控件拖到窗体上，系统就自动为这些控件创建一个集合了，大家就很容易用循环语句，对这些控件统一操作。
比如，我从工具箱里拖3个控件到窗体：1个按钮，1个多选框，1个标签。当拖完后，系统就自动把窗体（父控件）下的控件组成一个集合，下面我们就循环代码让它们显示出现。
Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
For index = 0 To Me.Controls.Count - 1
Me.Controls.Item(index).Text = "集合中的第" & (index + 1).ToString & "个元素"
Me.Controls.Item(index).BackColor = Color.Red
Next
End Sub在visual studio 2022环境，按F5运行，出现界面，点击窗体空白处，出现下面结果：
我们再在窗体创建一个GroupBox控件： GroupBox做为一个容器控件，对于它里面的控件就是父控件，在GroupBox控件里，我们再创建3个控件：1个按钮，1个多选框，1个标签。
把代码稍改一下，如下：
Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
For index = 0 To Me.Controls.Count - 1
Me.Controls.Item(index).Text = "集合中的第" & (index + 1).ToString & "个元素"
Me.Controls.Item(index).BackColor = Color.Red
Next
For index = 0 To GroupBox1.Controls.Count - 1
GroupBox1.Controls.Item(index).Text = "容器中的第" & (index + 1).ToString & "个元素"
GroupBox1.Controls.Item(index).BackColor = Color.Yellow
Next
End Sub运行结果如下：
根据上面的2次运行结果，我们知道容器内的控件自动成一个集合（最后创建的控件反而是第一个元素），我们很容易用循环语句对这个控件统一操作，也比较方便，但是我们只是想把其中的几个控件组成一个控件数组，怎么办呢？
方法就是：定义一个数组列表，然后把相应的控件加入其中就行了，以后操作这个控件，就是操作这个数组列表中的元素。
我先定义一个数组列表，取名：ABC 代码：Dim ABC As New ArrayList
ArrayList的相关知识可去微软了解相关知识，代码中的add, IndexOf等都是ArrayList的方法，Count是它的属性。
告诉新手：在visual studio 环境中，在代码里，鼠标点中ArrayList，让光标移动ArrayList中间，再按F1键，就可以到过 ArrayList 帮助的相关网址。
全部代码如下：
Public Class Form1
Dim ABC As New ArrayList '定义一个数组列表
Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
ABC.Add(Button1) 'Button1控件加入数组
ABC.Add(Button2) 'Button2控件加入数组
ABC.Add(CheckBox1) 'CheckBox1控件加入数组
Button1.Tag = "按钮1"
Button2.Tag = “按钮2” '
CheckBox1.Tag = ”复选框1“
For index = 0 To ABC.Count - 1
ABC(index).BackColor = Color.Green
Next
AddHandler Button1.Click, AddressOf ABC_Click '绑定事件处理程序
AddHandler Button2.Click, AddressOf ABC_Click '绑定事件处理程序
AddHandler CheckBox1.Click, AddressOf ABC_Click '绑定事件处理程序
End Sub
Public Sub ABC_Click(ByVal sender As Object, ByVal e As System.EventArgs)
''这里编写控件数组对 点击事件 的响应代码
Dim i As UInteger = ABC.IndexOf(CType(sender, Control)) '控件在集合中的索引号
MsgBox("点击的控件的索引是：" & i.ToString)
MsgBox("此控件的Text属性值：" & ABC(i).Text)
MsgBox("此控件的Tag属性值：" & ABC(i).Tag)
MsgBox("此控件的Width属性值：" & ABC(i).Width)
MsgBox("此控件数组个数：" & ABC.Count)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
MsgBox("按钮1点击事件", , "关于")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("按钮2点击事件", , "关于")
End Sub
Private Sub CheckBox1_Click(sender As Object, e As EventArgs) Handles CheckBox1.Click
MsgBox("多选框1点击事件", , "关于")
End Sub
End Class按F5运行，点击窗体，结果如下：
可见，代码成功地把3个控件加入到数组，并且为控件数组里的控件绑定了共同拥有的鼠标点击事件ABC_Click。
相比较VB6.0，这种方法，即可以让相同类型的控件加入到一个数组里来，也可以让不同类型的控件加入到一个数组，习惯后，这种让控件加入数组也是非常方便。
当然，还可以动态创建控件，并把它们加入到数组来，这就另做一篇文章来说明吧，这里不再赘述。