没有现成的属性，你只能遍历整个ListItems，检查每个ListItem的Selected属性。使用下面的代码： 
     Dim i, nCount, nFirst, nLast 
     
     nCount = 0 
     nLast = 0 
     nFirst = ListView1.ListItems.Count + 1 
     For i = 1 To ListView1.ListItems.Count 
     If ListView1.ListItems(i).Selected Then 
     nCount = nCount + 1 
     If nFirst > i Then 
     nFirst = i 
     End If 
     If nLast < i Then 
     nLast = i 
     End If 
     End If 
     Next 
     If nCount Then 
     MsgBox "选中" + CStr(nCount) + "个条目！" _ 
     + vbCrLf + "第一个选中的为" + CStr(nFirst) + _ 
     vbCrLf + "最后一个为" + CStr(nLast) 
     Else 
     MsgBox "没有选中条目！" 
     End If 
<END>
如果listview中的item太多那么遍礼一次会很浪费时间,建议使用sendmessage发送LVM_GETSELECTEDCOUNT消息来获得选定的数目。 
<END>
