怎么把list1里的项目转到list2的同时清空list1

For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
List1.Clear

'　将 List1 中的项目移动到 List2 中后在清空 List1
Private Sub Command2_Click()
Dim i As Integer, n As Integer
n = List1.ListCount - 1
List2.Clear
For i = 0 To n : List2.AddItem List1.List(i) : Next
List1.Clear
End Sub

你代码里写的是对的，只是放错了地方if list1.listindex =-1 then 删除 ，list1.clear放到next i下就可以了, next i上的 end if也删除

第三个要满足两个条件@初音✨七奈

为什么一开始不发题目呢？
完整代码如下：
If List1.ListIndex = -1 Then
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
List1.Clear
Else
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If

6666牛逼@初音✨七奈