有没有人告诉我一下：关于listbox控件的问题，在线等待请求帮助？急急急

Question

我现在有两个listBox控件，要求在listbox1控件里列出的内容，能支持多选，并且把选中的几项，直接通过单击按钮，复制到listbox2控件里去。请问如何实现，谢谢了。

Answer 1

listbox 属性style 为checkboxPrivate Sub Command1_Click()
For i = 0 To List1.ListCount - 1
 If List1.Selected(i) = True Then
   List2.AddItem List1.List(i)
 End If
 Next i
End Sub

Answer 2

实现多选只要把Listbox的MultiSelect属性设为1或2就可以了（建议设为2）

Answer 3

多选：
1. listbox 属性style 为checkbox
2. Listbox的MultiSelect属性设为1或2

Answer 4

listbox1 属性style 为checkboxPrivate Sub Command1_Click()
For i = 0 To List1.ListCount - 1
 If List1.Selected(i) = True Then
   List2.AddItem List1.List(i)
 End If
 Next i
End Sub