请问这个ListView 搜索函数怎么调用

Question

'************************************** 
' 函数名:  SearchListView 
' 描述:ListView 搜索函数 
'日期:2005.03.05 
'************************************** Option Explicit 
Public Sub SearchListView(ListViewX As ListView, SearchString As String, ListViewZ As ListView) 
   On Error Resume Next 
   Dim w, x, y, z As Integer 
   Dim a, b As String 
   ListViewX.ListItems.Add , , " " 
   ListViewX.ListItems.Item(1).Selected = True 
   SearchString = LCase(SearchString) 
   Do Until ListViewX.SelectedItem.Index = ListViewX.ListItems.Count 
       a = LCase(ListViewX.SelectedItem.Text) 
       z = Len(a) 
       y = Len(SearchString) 
       For x = 1 To z 
           If Mid(a, x, y) = SearchString Then 
               If ListViewX.SelectedItem = b Then 
               Else 
                   ListViewZ.ListItems.Add , , ListViewX.SelectedItem 
                   b = ListViewX.SelectedItem 
               End If 
           End If 
       Next x 
       w = ListViewX.SelectedItem.Index 
       w = w + 1 
       ListViewX.ListItems.Item(w).Selected = True 
   Loop 
   ListViewX.ListItems.Remove (ListViewX.ListItems.Count) 
End Sub

Answer 1

这个函数的功能：
在ListViewX控件中找出包含SearchString字符的行加入ListViewZ控件 中

Answer 2

Dim itmFound As ListItem
Set itmFound = ListView1.FindItem(Text1, lvwText, , lvwPartial)

Answer 3

在ListViewX控件中找出包含SearchString字符的行加入ListViewZ控件 中listviewX是搜索控件，listviewZ是目标控件，searchstring是搜索参照的字符串