Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
    With ListView1
            ' ListView-Control "einstellen"
            .View = View.Details
 
            .FullRowSelect = True
 
            ' Spalten erstellen
            .Columns.Add("Nr", 150, HorizontalAlignment.Left)
            .Columns.Add("Vorname", 150, HorizontalAlignment.Left)
            .Columns.Add("Passwort", 150, HorizontalAlignment.Left)
        End With
    End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        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
End Sub