ListBox Control的使用问题。 MFC

Question

有两个Listbox Control，要从一个listbox中实现多选，并且选择一个添加按钮，可将左边的多项添加到右边的listBox中，并且从左边删除。
可否写出listbox选择和添加按钮的代码？

Answer 1

将LIST1的List1.MultiSelect设为TRUE
Private Sub Command1_Click()
Dim ARR()
For I = 0 To List1.ListCount - 1
If List1.Selected(I) = True Then
List2.AddItem List1.List(I)
Else
ReDim Preserve ARR(j)
ARR(j) = List1.List(I)
j = j + 1
End If
Next
List1.Clear
For I = 0 To UBound(ARR)
 List1.AddItem ARR(I)
Next
End SubPrivate Sub Form_Load()
For I = 0 To 40
List1.AddItem I
Next
End Sub