.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的信息。