Private Sub Form_Load()
Dim lItem As ListItem
 
  ListView1.View = lvwReport
  ListView1.FullRowSelect = True
 
  ListView1.ColumnHeaders.Add 1, , "Spalte1"
  ListView1.ColumnHeaders.Add 2, , "Spalte2"
 
  Set lItem = ListView1.ListItems.Add(1, , "Zeile1")
  lItem.ListSubItems.Add 1, , "Zeile1"
 
  Set lItem = ListView1.ListItems.Add(2, , "Zeile2")
  lItem.ListSubItems.Add 1, , "Zeile2"
 
  Set lItem = ListView1.ListItems.Add(3, , "Zeile3")
  lItem.ListSubItems.Add 1, , "Zeile3"
 
  ListView1.ListItems(2).Selected = True
 
End Sub