Public Class frmListview
 
    Private lv As New ListView With {.Parent = Me}
 
    Private Initialized As Boolean
 
    Private Sub Init()
 
        With lv.Columns
            .Add("SP1", 200)
            .Add("SP2", 200)
        End With
 
        With lv.Items
            .Add("ZE1SP1").SubItems.Add("ZE1SP2")
            .Add("ZE2SP1").SubItems.Add("ZE2SP2")
            .Add("ZE3SP1").SubItems.Add("ZE3SP2")
        End With
 
        Initialized = True
    End Sub
 
 
    Public Function FindFirstItem _
        (ByVal Suchwort As String) As ListViewItem
 
        If Not Initialized Then Init()
 
        If lv.Items.Count = 0 _
            Or String.IsNullOrEmpty(Suchwort) Then Return Nothing
 
        Return lv.FindItemWithText(Suchwort, True, 0)
 
    End Function
End Class