Public Sub Kunden_in_ListView(ByRef listview As ListView)
 
        Dim kunde As New Kunde
 
        listview.Clear()
 
        For Each kunde In kunden_liste
            kunde.in_ListView(listview)
        Next
    End Sub

    Public Sub in_Listview(ByRef listview As ListView)
 
        ' Fügt einer Listbox den aktuellen Kunden als Eintrag hinzu
 
        Dim item As New ListViewItem(id.ToString, 0)
 
        item.SubItems.Add(kdnr)
        item.SubItems.Add(kundel)
 
        listview.Items.AddRange(New ListViewItem() {item})
 
    End Sub

Dim item As New ListViewItem = listview.Items.Add(id.ToString)
 
        item.SubItems.Add(kdnr)
        item.SubItems.Add(kundel)