Не могу передать в процедуру парметр типа ListItem - VB

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

Делаю так:

и далее так (lvFoundPartNo - листвью в режиме репорт):

При вызове процедуры - ругань на несоответвие типов. Расследование показало, что в процедуру передается не сам itmX, а его свойство по умолчанию, как строка.
Как передать сам объект?

Решение задачи: «Не могу передать в процедуру парметр типа ListItem»

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

                            <font color="blue">Option</font> <font color="blue">Explicit</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
    ListView1.ListItems.Add , , <font color="red">"Test"</font>
    <font color="blue">Call</font> Test(ListView1.SelectedItem)
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Test(<font color="blue">ByRef</font> p_oListItem <font color="blue">As</font> ListItem)
    MsgBox p_oListItem.Text
<font color="blue">End</font> <font color="blue">Sub</font>
                        