listbox为多选时，如何得到所有被选择的项

Question

listbox为多选时，如何得到所有被选择的项？我查了一下，listbox的selected属性是和这个相关的，可是怎么用呢？哪位大大给个示例呀

Answer 1

Private Sub Command1_Click()
    Dim i As Long
    If List1.ListCount > 0 Then
       For i = 0 To List1.ListCount - 1
           If List1.Selected(i) = True Then
              MsgBox "第" & i + 1 & "项被选中"
           End If
       Next
    End If
End SubPrivate Sub Form_Load()
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    List1.AddItem "5"
End Sub

Answer 2

但是知道第几项被选种后，怎么把被选中项的值取出来？
比如list1里有
“abc”
"bcd"
"kjl"
"owiue"
"sf"
5项其中选中了中间三项，怎么把这三项取出来然后放到LIST2中呢？然后在把选中的项自动删除？

Answer 3

Private Sub Command1_Click()
   
    Dim i As Long
    If List1.ListCount > 0 Then
       For i = List1.ListCount - 1 To 0 Step -1
           If List1.Selected(i) = True Then
              List2.AddItem List1.List(i)
              List1.RemoveItem i
           End If
       Next
    End IfERR: End SubPrivate Sub Form_Load()
    List1.AddItem "1"
    List1.AddItem "2"
    List1.AddItem "3"
    List1.AddItem "4"
    List1.AddItem "5"
End Sub