Public Class frmListViews
 
    Dim myListViews As New List(Of ListView)
 
    Private Sub frmListViews_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Height = 650 : Me.Width = 400
 
        Dim lvh As Integer = 150
        Dim lvw As Integer = 300
 
        'Listviews erstellen
        For i As Integer = 0 To 3
            Dim lv As New ListView
            With lv
                .Height = lvh : .Width = lvw
                .Top = i * (lvh + 10) : .Left = 10
                .Tag = CStr(i) 'Kennung für Zugriff
                .Items.Add("Listview" & cstr(i))
                .View = View.Details
                .Columns.Add("Information", 200)
            End With
 
            AddHandler lv.Click, AddressOf ListViews_Click
 
            'Listview auflisten
            myListViews.Add(lv)
            Me.Controls.Add(lv)
        Next i
 
    End Sub
 
    Private Sub ListViews_Click(sender As Object, e As System.EventArgs)
 
        Dim lv As ListView = CType(sender, ListView) 'Referenz
 
        Dim kennung As Integer = CInt(lv.Tag)   'Identifikation
 
        lv.Items(0).Text = "Ich bin angeclickt worden" 'Zugriff
 
        'alternativer Zugriff per Liste
        myListViews(kennung).Items.Add("Listenzugriff erfolgt")
 
    End Sub
End Class