Public Sub lvw_WriteXML(ByVal lvw As ListView, ByVal SDataFile As String)
        Dim xw As New Xml.XmlTextWriter(SDataFile, System.Text.Encoding.Default)
        xw.Formatting = Xml.Formatting.Indented ' Zeilen einrücken Darstellung
        xw.Indentation = 5 ' Wie viele Zeichen einrücken
 
        'XML schreiben
        xw.WriteStartDocument()
        xw.WriteStartElement("ListViewData")
        For Each li As ListViewItem In lvw.Items
            xw.WriteStartElement("Item")
            For Each si As ListViewItem.ListViewSubItem In li.SubItems
                xw.WriteStartElement("Subitem")
                xw.WriteString(si.Text)
                xw.WriteEndElement()
            Next
            xw.WriteEndElement()
        Next
        xw.WriteEndElement()
        xw.WriteEndDocument()
        xw.Close()
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist