Sub texterzeugen()
        Dim sammlung As New Collection()
        For i = 1 To 9
            sammlung.Add(New Label, i)
            sammlung.Item(i).name = "label" & i
            sammlung.Item(i).text = "Textfeld"
            sammlung.Item(i).location = New Point(10, 10 + (i * 50))
            AddHandler labelmitdesigner.Click, AddressOf ereignissauswertung
            AddHandler sammlung.Item(i).Click, AddressOf ereignissauswertung
            Me.Controls.Add(sammlung.Item(i))
        Next i
    End Sub
 
    Sub ereignissauswertung(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        MessageBox.Show("ereigniss von " & sender.ToString)
    End Sub
 
Zeile 9 zeigt mir der compiler das das click ereigniss nicht zum objekt gehört
wie löse ich das Problem ?