Option Explicit
Public a As Integer, i As Integer
Private Sub Command1_Click()
If List1.SelCount = 1 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
ElseIf List1.SelCount > 1 Then
For a = List1.ListCount - 1 To 0 Step -1
If List1.Selected(a) Then
List2.AddItem List1.Text
List1.RemoveItem a
End If
Next a
End If
End Sub

以上的代码主要目的是为了实现将list1内的多个内容添加到list2中，可是不知道什么地方错了，那位高手帮忙改一下

再描述清楚你想要得功能

多重添加功能
就是将list1中的多个选中的内容项同时添加到list2

我菜鸟。

[CODE]Option Explicit
Public a As Integer, i As Integer
Private Sub Command1_Click()
If List1.SelCount = 1 Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
ElseIf List1.SelCount > 1 Then
For a = List1.ListCount - 1 To 0 Step -1
If List1.Selected(a) Then
List2.AddItem List1.Text
List1.RemoveItem a
End If
Next a
End If
End Sub[/CODE]

加粗行有错。问题没说要remove掉。

那我现在加上在添加的同时删除选择项