Public Class BoolData
    Private _Value As Boolean
    Private _ID As Integer
    Public Event ValueChanged(ByVal sender As BoolData, ByVal newvalue As _
      Boolean)
 
    Public Sub New(ID As Integer)
        _ID = ID
    End Sub
 
    Public Property Value As Boolean
        Get
            Return _Value
        End Get
        Set(value As Boolean)
            If value <> _Value Then
                _Value = value
                RaiseEvent ValueChanged(Me, value)
            End If
        End Set
    End Property
 
    Public ReadOnly Property ID() As Integer
        Get
            Return _ID
        End Get
    End Property
 
End Class

  Public Sub valuechanged(sender As BoolData, value As Boolean)
    'was immer
  End Sub
 
 
  Private Sub Form1_Load(sender As System.Object, _
                   e As System.EventArgs) Handles MyBase.Load
 
 
 
    Dim lst As New List(Of BoolData)
 
    For i As Integer = 0 To 9
       Dim bd As New BoolData(i)
       bd.Value = True
       lst.Add(bd)
       AddHandler bd.ValueChanged, AddressOf valuechanged
    Next i
    '....