Dim SuchenGridFarbe1 As Color = Color.Aqua
        Dim SuchenGridFarbe2 As Color = Color.Blue
        Dim ccv As New ColorConverter
 
        Dim settings As Xml.XmlWriterSettings = New Xml.XmlWriterSettings
        settings.Indent = True
        settings.NewLineOnAttributes = True
        Dim myXMLwriter As Xml.XmlWriter = Xml.XmlWriter.Create( _
          Application.StartupPath _
        & "\settings.xml", settings)
 
        With myXMLwriter
            .WriteStartDocument()
            .WriteStartElement("Slider")
            .WriteStartAttribute("Hauptfenster")
            .WriteValue(frmMain.SplitContainer1.SplitterDistance)
            .WriteStartAttribute("Erfassen")
            .WriteValue(frmMain.SplitContainer3.SplitterDistance)
            ' 
            .WriteStartElement("Farben")
            .WriteStartAttribute("TrefferlisteFarbe1")
            .WriteValue(ccv.ConvertToString(SuchenGridFarbe1))
            .WriteStartAttribute("TrefferlisteFarbe2")
            .WriteValue(ccv.ConvertToString(SuchenGridFarbe2))
 
            .WriteEndAttribute()
            .WriteEndElement()
            .WriteEndDocument()
            .Close()
        End With

mfgMeik MillerMein beste Code:If then