Dim i as Integer
 
        ' die Anzeige des ListView auf Details gesetzt
        ListView1.View = View.Details
 
        For i = 0 to 10
           ListView1.Items.Add("Nr:" & i)
           ' colVorname und colNachname sind Collection die mehr als 20 Items 
           ' beinhalten
           ListView1.Items(i).SubItems.Add(colVorname.Item(i))
           ListView1.Items(i).SubItems.Add(colNachname.Item(i))
        Next i