Este código a mi me funcionó a la perfección, con tal que la propiedad Sorted no esté establecida a True.
Cita: For Elimina = 0 To List1.ListCount - 1
If List1.Selected(Elimina) Then
List1.RemoveItem Elimina
Elimina = Elimina - 1
End If
If Elimina > List1.ListCount - 2 Then
Exit For
End If
Next Elimina