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.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()
MyBase.New()

''该调用是 Windows 窗体设计器所必需的。
InitializeComponent()

''在 InitializeComponent() 调用之后添加任何初始化
''用来绑定label
BindArray()

End Sub
……Windows窗体设计器生成的其他代码……

#End Region
Dim Labels As New LabelArray(Me)
Public Sub BindArray()
Me.Label1.Tag = "1111"
Me.Label2.Tag = "222"
Labels.AddItem(Me.Label1)
Labels.AddItem(Me.Label2)
End Sub
End Class

然后可以测试点击两个label可以显示相应的Tag的信息。