Dim listx As ListItem
Set listx = lvListView.SelectedItem
if Not listx Is Nothing then
....
end if