Imports System.IO
Imports System.Xml.Serialization
Imports System.Reflection
 
<Serializable()> _
Public Class clsEinstellungen
    Implements ICloneable
    Implements System.ComponentModel.INotifyPropertyChanged
 
    Private _Test1 As String = "Demo1"
    Property Test1 As String
        Get
            Return _Test1
        End Get
        Set(value As String)
            _Test1 = value
            NotifyPropertyChanged("Test1")
        End Set
    End Property
 
    Private _Test2 As String = "Demo2"
    Property Test2 As String
        Get
            Return _Test2
        End Get
        Set(value As String)
            _Test2 = value
            NotifyPropertyChanged("Test2")
        End Set
    End Property
 
    Public Function Clone() As Object Implements System.ICloneable.Clone
        Return MemberwiseClone()
    End Function
 
    ' Creates a copy of an object
    Public Shared Function GetCopy(Of SourceType As {Class, New})(ByVal Source _
      As SourceType) As SourceType
 
        Dim ReturnValue As New SourceType
        Dim sourceProperties() As PropertyInfo = Source.GetType().GetProperties( _
          )
 
        For Each sourceProp As PropertyInfo In sourceProperties
            sourceProp.SetValue(ReturnValue, sourceProp.GetValue(Source, _
              Nothing), Nothing)
        Next
        Return ReturnValue
    End Function
 
    <NonSerialized()> _
    Public Event PropertyChanged(ByVal sender As Object, _
 ByVal e As System.ComponentModel.PropertyChangedEventArgs) _
 Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
 
    Private Sub NotifyPropertyChanged(ByVal info As String)
        RaiseEvent PropertyChanged(Me, _
        New System.ComponentModel.PropertyChangedEventArgs(info))
    End Sub
End Class

Public Class FrmEinstellungen
 
    Private Einstellungen As clsEinstellungen
 
    Private Sub FrmEinstellungen_Load(sender As System.Object, e As _
      System.EventArgs) Handles MyBase.Load
        Me.Einstellungen = clsEinstellungen.GetCopy(Form1.Einstellungen)
        TextBox1.DataBindings.Add(New Binding("Text", Einstellungen, "Test1", _
          True, DataSourceUpdateMode.OnPropertyChanged))
        TextBox2.DataBindings.Add(New Binding("Text", Einstellungen, "Test2", _
        True, DataSourceUpdateMode.OnPropertyChanged))
    End Sub
 
    Private Sub BtnAbbrechen_Click(sender As System.Object, e As _
      System.EventArgs) Handles BtnAbbrechen.Click
        Me.Close()
    End Sub
 
    Private Sub BtnSpeichern_Click(sender As System.Object, e As _
      System.EventArgs) Handles BtnSpeichern.Click
        Form1.Einstellungen = clsEinstellungen.GetCopy(Einstellungen)
        Me.Close()
    End Sub
 
End Class