<code>  With ListView1
    <font color=green>' Umstellen auf "Report"-Ansicht</font>
    .View = lvwReport
 
    <font color=green>' Column-Headers hinzufügen</font>
    .ColumnHeaders.Add , , "Name"
    .ColumnHeaders.Add , , "Vorname"
    .ColumnHeaders.Add , , "Geburtsdatum"
    .ColumnHeaders.Add , , "Telefon"
 
    <font color=green>' Zeile hinzufügen</font>
    Dim itemX As ListItem
 
    <font color=green>' 1. Zeile</font>
    Set itemX = .ListItems.Add(, , "Ebbing")
    itemX.SubItems(1) = "Lutz"
    itemX.SubItems(2) = "??.??.????"
    itemX.SubItems(3) = "(99999) 999999"
 
    <font color=green>' 2. Zeile</font>
    Set itemX = .ListItems.Add(, , "Otter")
    itemX.SubItems(1) = "Dieter"
    itemX.SubItems(2) = "05.05.1973"
    itemX.SubItems(3) = "keine Angabe"
 
    <font color=green>' 3. Zeile
    'usw.</font>
  End With</code>