[SOLVED] List1 Multiselect

[batori]

Hi guys,

Im using this code to remove multiselected items :

For i = 0 To List1.ListCount

If List1.Selected(i) = true Then
List1.RemoveItem List1.ListIndex
End If

Next i

What i would like to to is to....remove all the non selected items.
I know it could be done by moving the selected ones to a new box and then back to the old one.

But is there a cleaner way? i tried the .selected(i)=false then .remove .List1.ListIndex but no luck

any ideas?

cheers