Private Sub Form_Load()
   Show
   With ListView1
      .View = lvwReport
      .ColumnHeaders.Add , , , .Width - 60
      .HideColumnHeaders = True
      .FullRowSelect = True
 
      'Zeilen hinzufügen
      .ListItems.Add , , "Dein Text der 1. Zeile"
      .ListItems.Add , , "Dein Text der 2. Zeile"
 
      'Zeilen auslesen und farbe ändern
      .ListItems(2).ForeColor = &HFF
      MsgBox .ListItems(1).Text
 
      'Zeilen entfernen
      .ListItems.Remove 1
   End With
End Sub