Ola! Estou com uma duvida de como filtro um registro no listview... estou fazendo mas esta dando errado:

Na mudança do nome do cliente num textbox:

 If Trim$(txtCliente) = "" Then LVCliente.ListIndex = -1:  Exit Sub
   
    For A = LVCliente.ListCount - 1 To 0 Step -1
        If LCase$(Left(LVCliente.List(A), Len(txtCliente))) = LCase$(Trim$(txtCliente)) Then
                    
            LVCliente.ListIndex = A
            Achou = True
        Else
            LVCliente.RemoveItem A
        End If
    Next
   
    If Achou = False Then
        LVCliente.ListIndex = -1
        'ListarTudo
    End If

    Texto = UCase$(txtCliente.Text)
    LVCliente.SelectedItem = LVCliente.ListItems(Texto)
    LVCliente.SetFocus
    For Each Item In LVCliente.ListItems
       For I = 0 To LVCliente.ColumnHeaders.Count - 1
            If I = 0 Then
                Item.Bold = UCase$(Item.Text) Like "*" & Texto & "*"
            Else
                Item.ListSubItems(I).Bold = UCase$(Item.SubItems(I)) Like "*" & Texto & "*"
            End If
        Next I
    Next Item

 

Mas na o funcionaaaa!