multi select listbox, remove selected items.

i have a multi select listbox that i want to be able to remove the selected items in one hit.
i have not been able to convert code for removing single selected items and could not find a working example.

cheers

this is probley the closest though cos its removing items it plays havoc with the listcount

Dim lItem As Long

    For lItem = 0 To Me.lstbx_Files.ListCount - 1

        If Me.lstbx_Files.Selected(lItem) = True Then

            Me.lstbx_Files.RemoveItem (lItem)

            'Me.lstbx_Files.Selected(lItem) = False

        End If

    Next

ummm this may not bee a issue now.
Excel had a fatal error and closed and now when it open the file i get errors accoured during load ok that and then it says that it removed the vba project part, is the a fix for this as i didnot have a backup copy of this file.
I got one from the temp folder though it is a old file.
Well i think i just learnt a valuable lesson.
gotta love the things we hate at times
System Volume Information, workbook is not diffrent from the last work.

so i guess the question above about the listbox still stands, maby a couple hrs before ill be there though.