Проблема с listview

[Demonx]

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

For i = 1 To lvwHardware.ListItems.Count
    If lvwHardware.ListItems(i).Selected = True Then ' Почему здесь ошибка?
        ...
    End If
Next i

[Konst_One]

попробуй так:

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

Dim lst As MSComctlLib.ListItem

    For Each lst In Me.lvwHardware.ListItems
        If lst.Selected = True Then
        end if
    Next lst


[Demonx]

Сори что потревожил...не в том дело было) Оказывается я в цикле форму выгружал) Твой пример показал что listview был удалён и обнаружился подвох) Спасибо!