Public Class BoolData
    Public Event ValueChanged()
 
    Public Property Value As Boolean
        Get
            Return _Value
        End Get
        Set(value As Boolean)
            If value <> _Value Then
                _Value = value
                RaiseEvent ValueChanged()
            End If
        End Set
    End Property
    Private Property _Value As Boolean
End Class

Private myList As New List(Of BoolData)