problemas con listbox

[izar]

Hola . estoy intentando borrar de un listbox , los elementos q esten seleccionados (el listbox es multiselect)

pero esto no funciona.....

algunos elementos, que deberian tener el selected a true, lo tienen false:

For h = lbCampos.ListCount - 1 To 0 Step -1
If lbCampos.Selected(h) Then
lbCampos.RemoveItem (h)
End If
Next h

Alguna sugerencia????

Gracias

[David]

Este código a mi me funcionó a la perfección, con tal que la propiedad Sorted no esté establecida a True.

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