p;Me.List.RemoveAt(Me.Count - 1)

        End If

    End Sub


    Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ''''在这里编写控件数组对点击事件的响应

        ''''例如：

        MsgBox("点击：" & sender.GetType().ToString & CType(CType(sender, Button).Tag, String))

    End Sub

End Class







使用创建的控件数组

在Form1中放置两个按钮Button1、Button2，分别测试控件数组的增添、删除。

双击Form添加代码：

Public Class Form1

    Inherits System.Windows.Forms.Form



……Windows窗体设计器生成的代码……

    Dim Buttons As New ButtonArray(Me)



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Buttons.AddItem()

    End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Buttons.RemoveItem()

    End Sub

End Class


其他的控件数组也可以用类似的方式来实现
例如 Label控件数组

LabelArray.vb代码如下：
Public Class LabelArray
    Inherits System.Collections.CollectionBase

    Private ReadOnly ParentForm As System.Windows.Forms.Form

    Public Sub New(ByVal pForm As System.Windows.Forms.Form)

        ParentForm = pForm

    End Sub


    Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label

        Get

            Return Me.List.Item(index)   '''' ButtonArray的List 属性从CollectionBase 继承

        End Get

    End Property


    Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)

        Me.List.Add(btnItem)

        AddHandler btnItem.Click, AddressOf btnItem_Click ''''绑定事件处理程序

    End Sub
    


    Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)

        ''''在这里编写控件数组对点击事件的响应

        ''''例如：

        MsgBox("点击：" & sender.GetType().ToString & CType(CType(sender, Label).Tag, String))

    End Sub
End Class


使用创建的Label控件
在Form1中放置两个按钮Label1、Label2

双击Form添加代码：

Public Class Form1

    Inherits System.Windows