Public Sub SaveSettings()
        Dim xw As XmlTextWriter = New XmlTextWriter("settings.xml", _
          System.Text.Encoding.Default)
        xw.Formatting = Xml.Formatting.Indented ' Einrückung aktivieren: Viel 
        ' besser lesbar
        xw.Indentation = 5 ' 5 Zeichen einrücken
 
        xw.WriteStartDocument()
        xw.WriteStartElement("Assistenten")
        xw.WriteEndElement()
        xw.WriteStartElement("Database")   'hier gibt es eine ausnahme
        xw.WriteEndElement()
        xw.WriteEndDocument()
        xw.Close()
    End Sub