Простой вопрос по Listiew. - VB

Формулировка задачи:

Как скрыть определенный ListItems? Или как можно сделать, что-то наподобие фильтра, если у кого есть код, поделитесь плиз.

Решение задачи: «Простой вопрос по Listiew.»

textual
                            Листинг программы 
                        

                            <font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> <font color="darkblue"><b>20000</b></font>
rtn = m.<font color="blue">Do</font>(<font color="teal">"rlist^%gvED"</font>)
<font color="blue">If</font> rtn = <font color="teal">""</font> <font color="blue">Then</font> 
 MEdit.MousePointer = vbDefault
 <font color="blue">Exit</font> <font color="blue">Sub</font>
 <font color="blue">End</font> <font color="blue">If</font>
m.Xecute (<font color="teal">"s rtn="</font><font color="teal">""</font> & Piece(rtn, <font color="teal">"  "</font>, <font color="darkblue"><b>1</b></font>) & <font color="teal">""</font><font color="teal">""</font>)
<font color="blue">Set</font> itmX = ListView1.ListItems.Add(, , <font color="teal">""</font> & Piece(rtn, <font color="teal">"  "</font>, <font color="darkblue"><b>1</b></font>) & <font color="teal">""</font>, , <font color="darkblue"><b>1</b></font>)
itmX.SubItems(<font color="darkblue"><b>1</b></font>) = Piece(rtn, <font color="teal">"  "</font>, <font color="darkblue"><b>2</b></font>)

    <font color="blue">Next</font> i
    MEdit.Caption = i & <font color="teal">" - Routines Load ..."</font>
                        