Dim sw As New IO.StreamWriter("C:\lvitems.txt")
        For Each item As ListItem In lvItems
            sw.WriteLine(item.ToString & " " & item.Color.ToString())
        Next
        sw.Close()

________
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