Удаление выделенных элементов из ListBox`a

[jangle]

Подскажите, как правильно удалять выделенные элементы в ListBox. Мой код сваливается с ошибкой Invalid property array index

Стиль ListBox - CheckBox

Код: Выделить всё

Option Explicit

Private Sub Form_Load()
Me.List1.AddItem "1111111111111"
Me.List1.AddItem "22222222222"
Me.List1.AddItem "3333333333333"
Me.List1.AddItem "444444444444"
Me.List1.AddItem "555555555555"

End Sub


Private Sub Command1_Click()
    Dim i As Long
    For i = 0 To List1.ListCount - 1
     If List1.Selected(i) = True Then
        List1.RemoveItem (i)
     End If
    Next i
End Sub

[GSerg]

А ты всё-таки сам догадайся, почему.

[alibek]

Выполни свой код пошагово (F8).

[jangle]

А понял! Элементы надо удалять с конца ListBox`a

Код: Выделить всё

Private Sub Command1_Click()
    Dim i As Long
    For i = List1.ListCount - 1 To 0 Step -1
     If List1.Selected(i) = True Then
        List1.RemoveItem (i)
     End If
    Next i
End Sub