Ayuda, Fuera de rango

[jorgegetafe]

Saludos, es parte de un código de un form que quita los clientes seleccionados por el usuario en un listbox. Evidentemente tiene que borrar los clientes y tambien quitarlos del listbox.

Si el usuario selecciona solo un cliente el codigo funciona perfectamente, pero si se selecciona más de uno, al borrar el último siempre me peta por un error de índices y no se corregirlo, ayuda porfa!!!

ListadoNuevos es el listBox. ObjContactos es una collecion de clientes.

For i = 1 To ListadoNuevos.SelectedItems.Count
ObjContactos.bajaCliente(CType(ListadoNuevos.Selec tedItems.Item(i - 1), cliente)) 'Peta al borrar el ultimo seleccionado
ListadoNuevos.Items.Remove(ListadoNuevos.SelectedI tems.Item(i - 1))
Next



Muchas gracias