Private Sub Form_Load()
 
    Call SetListViewDatas(ListView1, Text1.Text)
 
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
 
    ListView.ListItems.Clear
    Call SetListViewDatas(ListView1, ItemName)
    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 Sub
 
Private Sub SetListViewDatas(ListView As ListView, ItemName As String)
 
Dim ItemToAdd As String
 
    For i = 1 To 100
        ItemToAdd = "Item" & i
 
        If UCase(Left(ItemToAdd, Len(ItemName))) = UCase(ItemName) Or ItemName _
          = "" Then
            ListView.ListItems.Add , , ItemToAdd
        End If
 
    Next i
 
End Sub

Mit freundlichen Gr??en,
Andy G.