элемент в ListView с неким ключем

[SHURUP]

Стыдно, но все-же задам вопрос.
Как проверить, существует ли элемент в ListView с неким (заданым) ключем. Пока что, лучше отлова ошибки ничего не придумал. Поиск по "key" ничего подходящего не дал.
Уверен, что это просто, но не могу сообразить.

[Alex_2005]

мда.. хороший вопрос... я тоже тока методом олова ошибки пользуюсь..

[ism]

Рекурсивно перебрать все элементы... будет медленно

[SHURUP]

ism, не! Лучше уж ошибку ловить.
Пока-что пользуюсь самопалом, вроде

Код: Выделить всё

Public Function ExInColl(ByRef coll, KeyOrIndex) As Boolean
On Error GoTo zzz
    ExInColl = coll.Item(KeyOrIndex).Key = coll.Item(KeyOrIndex).Key
    Exit Function
zzz:
    ExInColl = False
End Function

или

Код: Выделить всё

Public Function ExInColl(ByRef coll, KeyOrIndex) As Boolean
On Error Resume Next
    ExInColl = coll.Item(KeyOrIndex).Key = coll.Item(KeyOrIndex).Key
End Function

Есть ли какие-то более элегантные решения?