怎么获得ListView中选中的条目名称阿？

Question

ListView1.SelectedItem.Text 属性可以获得当前被选中的名称。可是当使用Ctrl,Shift进行多项选择后，怎么得到所有选中的条目名称？

Answer 1

for i=1 to listview1.listitems.count
    if listview1.items(i).selected = true then
        msgbox listview1.items(i).text
    end if
next i

Answer 2

Dim i As Integer
    Dim strlist as string
    For i = 1 To lvStNr.ListItems.Count
        If lvStNr.ListItems.Item(i).Checked = True Then
           strlist=strlist & lvStNr.listitems,items(i).text
           
        End If
    Next i
   msgbox strlist