Hello

My application uses the ListView component which contains around 5000 items.
The component has got set up the property MultiSelect = true and user can select several items and after click on button these items will be selected.
This functionality doesn't work fine in case that user select all rows and clicks on button. It takes several seconds and application is frozen.

Here is my delete function:

Code:
Private Sub RemoveStations()
Dim I As Integer

For I = lstAssignedStations.ListItems.count To 1 Step -1
    If lstAssignedStations.ListItems(I).Selected Then
        lstAssignedStations.ListItems.Remove lstAssignedStations.ListItems(I).Key
    End If
Next I

End Sub
How can I speed-up this functionality?

Thanks