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)