Vb.net如何在列表视图中搜索？

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim keyword As String = TextBox1.Text.ToLower() ' 获取搜索关键字并转换为小写

    ' 遍历列表视图的每一项
    For Each item As ListViewItem In ListView1.Items
        ' 判断当前项的文本是否包含搜索关键字
        If item.Text.ToLower().Contains(keyword) Then
            item.Selected = True ' 选中匹配的项
            item.EnsureVisible() ' 确保该项可见
        Else
            item.Selected = False ' 取消选中非匹配的项
        End If
    Next
End Sub