Private Sub Form_Load()
 
    Call SetListViewDatas(ListView1)
 
End Sub
 
Private Sub Text1_Change()
 
    Call GetListViewItem(ListView1, Text1.Text)
 
End Sub
 
Private Sub GetListViewItem(ListView As ListView, ItemName As String)
    Dim i As Integer
 
    If ItemName = "" Then
        ListView.ListItems.Clear
        Call SetListViewDatas(ListView1)
    Else
        For i = ListView.ListItems.Count To 1 Step -1
            If Not UCase(Left(ListView.ListItems(i).Text, Len(ItemName))) = _
              UCase(ItemName) Then
                ListView.ListItems.Remove (i)
            End If
        Next i
    End If
 
 
End Sub
 
Private Sub SetListViewDatas(ListView As ListView)
 
    For i = 1 To 100
        ListView.ListItems.Add , , "Item" & i
    Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.