ho risolto vi inserisco in codice che ho trovato:

Dim selezionati As ListView.SelectedListViewItemCollection = _
DirectCast(sender, ListView).SelectedItems



comparto = selezionati(0).Text
unedilizia = selezionati(0).SubItems(1).Text

spero vi serva