'Hier die Zuordnung
AddHandler lv.MouseDown, AddressOf ListViews_MouseDown
 
'der Handler
Private Sub ListViews_MouseDown(sender As Object, e As _
  System.Windows.Forms.MouseEventArgs)
   .......
End Sub

Public Class Form1
    Private WithEvents LV As ListView
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 0 To 4
            Dim LV = New ListView()
 
            With LV
                LV.Items.Add(i + 1)
                '.Text = i + 1
                .Left = 100
                .Height = 30
                .Top = 10 + (30 * i)
            End With
 
            AddHandler LV.Click, AddressOf LV_Click
            AddHandler LV.DoubleClick, AddressOf LV_DoubleClick
            Me.Controls.Add(LV)
        Next
    End Sub
 
    Private Sub LV_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lText As String = DirectCast(sender, ListView).FocusedItem.Text
        MsgBox(lText)
    End Sub
 
    Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs)
               MsgBox("Doppelklick")
    End Sub

    Private Sub LV_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim lText As String = DirectCast(sender, ListView).FocusedItem.Text
        MsgBox(lText)
    End Sub

Dim Lv as <-- übermittelte ListView 
MsgBox(Lv.Items(Lv.FocusedItem.Index).Text)

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

Private Sub ListViews_Click(sender As Object, e As System.EventArgs)

LV.HitTest(e.X, e.Y)