Dim ItemX as ListItem
может синтаксис и не такой. ну чет в таком виде
set ItemX = ListviewSample.listitems.add(index,key,text,Icon,smallicon)
itemX.subitem(1).text = "bla bla bla"
set ItemX = listvewSample.selecteditem
debug.print ItemX.key
debug.print ItemX.text
....
Сейчас этот форум просматривают: Yandex-бот и гости: 56