我想移除，但报错，怎样解决？

Question

Dim i As Integer
Dim strTemp As String
strTemp = ""
For i = 1 To List1.ListCount
    If List1.Selected(i - 1) Then
        strTemp = strTemp + List1.List(i - 1)
        list1.RemoveItem(list1.ListIndex)‘这一句删除，结果让下面的索引提升了，会报错，如何解决呢？
    End If
Next i
List1.AddItem "(" + strTemp + ")"

Answer 1

Dim i As Integer
Dim strTemp As String
strTemp = ""
For i = List1.listCount To 1 step -1
    If List1.Selected(i - 1) Then
        strTemp = strTemp + List1.List(i - 1)
        list1.RemoveItem(list1.ListIndex)‘这一句删除，结果让下面的索引提升了，会报错，如何解决呢？
    End If
Next i
List1.AddItem "(" + strTemp + ")"从下往上移除就不会抱错了.