Imports System.ComponentModel
 
Public Class ResetClass
    Implements System.ComponentModel.INotifyPropertyChanged
 
    Public Event PropertyChanged(sender As Object, _
                                 e As PropertyChangedEventArgs) _
    Implements INotifyPropertyChanged.PropertyChanged
 
    Private Class Members
        Public Property Name As String = ""
        Public Property Beruf As String = ""
        Public Property Alter As Integer = 0
    End Class
 
    Dim original As New Members
    Dim backup As New Members
 
    Public Property Name As String
        Set(value As String)
            original.Name = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Name"))
        End Set
        Get
            Return original.Name
        End Get
    End Property
 
    Public Property Beruf As String
        Set(value As String)
            original.Beruf = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs( _
              "Beruf"))
        End Set
        Get
            Return original.Beruf
        End Get
    End Property
 
    Public Property Alter As Integer
        Set(value As Integer)
            original.Alter = value
            RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs( _
              "Alter"))
        End Set
        Get
            Return original.Alter
        End Get
    End Property
 
    Private Sub copymembers(ByVal q As Members, ByRef z As Members)
        z.Name = q.Name
        z.Beruf = q.Beruf
        z.Alter = q.Alter
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(Nothing))
    End Sub
 
    Public Sub Reset()
        copymembers(backup, original)
    End Sub
 
    Public Sub Commit()
        copymembers(original, backup)
    End Sub
 
End Class