Private EditNoteFlag As Boolean
    Dim XMLSettingsFile As DataSet = New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        XMLSettingsFile.ReadXml("settings.xml", XmlReadMode.Auto)
 
        ListBox1.DataSource = XMLSettingsFile.Tables("Notes")
        ListBox1.DisplayMember = "NoteTitle"
        TextBox1.DataBindings.Add("Text", XMLSettingsFile.Tables("Notes"), _
          "Note")
        TextBox2.DataBindings.Add("Text", XMLSettingsFile.Tables("Notes"), _
        "NoteTitle")
 
    End Sub
 
    Private Sub ClearBoxes()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox2.Focus()
    End Sub
 
    Private Sub SetSelect()
        If ListBox1.Items.Count > 0 Then
            ListBox1.SetSelected(0, True)
        End If
    End Sub
 
'XML Datei speichern
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        SetSelect()
 
        XMLSettingsFile.WriteXml("settings.xml", XmlWriteMode.IgnoreSchema)
        ListBox1.Enabled = True
 
    End Sub
 
'Neuer Datensatz
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        ClearBoxes()
        Dim dr As DataRow = XMLSettingsFile.Tables("Notes").NewRow()
        XMLSettingsFile.Tables("Notes").Rows.Add(dr)
 
        BindingContext(XMLSettingsFile.Tables("Notes")).Position = _
          XMLSettingsFile.Tables("Notes").Rows.Count - 1
 
        EditNoteFlag = True
        ListBox1.Enabled = False
    End Sub
 
'Datensatz editieren
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        EditNoteFlag = True
        ListBox1.Enabled = False
    End Sub