Доброго времени суток, граждане. Подскажите, что не так? Или все так?
Нужно выдать значения в ListView. Для этого описал:

lvCitizen, сообственно сам ListView, в который вывожу.

Private o_Citizen As Object
Private itm_Citizen As ListItem

Private Sub btnCitizen_Select_Click()
n_d = 0
Do While n_d <> o_Citizen.Count
n_d = n_d + 1
Set itm_Citizen = lvCitizen.ListItems.Add(, , o_Citizen.Item(n_d - 1).Name) ' *
itm_Citizen.SubItems(1) = CStr(o_Citizen.Item(n_d - 1).ISN)
Loop
End Sub


*если я правильно понял, то вот в этом месте (где звездочка) должно происходить, собственно, заполнение ListView - заполнение именем, которое хранится в o_Citizen (оно вытаскивается в другом месте из базы). Надо ли делать какое-то обновление экрана или еще что-нибудь? В этом месте у меня ничего не происходит - ни ошибок, ни заполнения LV. И SubItems для itm_Citizen тоже не создается - вылетает ошибка Invalid property value.

Все. Уже разобрался - дело было в неправильно выставленных свойствах ListView (отображение Reports, вместо Icons), а также в том, что не создал структуру этого ListView заранее.