lvwlist.View = lvwReport
 
  Set colx = lvwlist.ColumnHeaders.Add
  colx.Text = "spalte 1"
  Set colx = lvwlist.ColumnHeaders.Add
  colx.Text = "spalte 2"
 
  lvwlist.ListItems.Add = "Zeile 1"
  lvwlist.ListItems(lvwlist.ListItems.Count).ListSubItems.Add = "Zeile 1"
 
  lvwlist.ListItems.Add = "Zeile 2"
  lvwlist.ListItems(lvwlist.ListItems.Count).ListSubItems.Add = "Zeile 2"
 
  lvwlist.ListItems.Add = "Zeile 3"
  lvwlist.ListItems(lvwlist.ListItems.Count).ListSubItems.Add = "Zeile 3"
 
  lvwlist.FlatScrollBar = False
  lvwlist.LabelEdit = lvwManual
 
  lvwlist.Refresh