Public Class Item
 
    Implements INotifyPropertyChanged
 
    Public Name As String
    Private _Wert As Object = 0
    Public Event PropertyChanged(sender As Object, e As _
      PropertyChangedEventArgs) Implements _
      INotifyPropertyChanged.PropertyChanged
 
     Public Property Wert As Object
        Get
            Return _Wert
        End Get
        Set(value As Object)
            If value <> _Wert Then
                _Wert = value
                RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs( _
                  "Wert"))
            End If
        End Set
    End Property
 
End Class