Public Sub lvw_WriteXML(ByVal lvw As ListView, ByVal SDataFile As String)
        Dim xw As New Xml.XmlTextWriter(".\XMLListview.xml", _
          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()
        For Each li As ListViewItem In ListView2.Items
            xw.WriteStartElement("Item" & li.Index.ToString)
            xw.WriteString(li.Text)
 
            For i As Integer = 1 To li.SubItems.Count - 1
                xw.WriteStartElement("Subitem" & i)
                xw.WriteString(li.SubItems(i).Text)
            Next
            xw.WriteEndElement()
            xw.WriteEndElement()
        Next
        xw.WriteEndDocument()
        xw.Close()
 
    End Sub

fg viperbone