Código:
Muchas gracias. Dim i As Integer
For i = 1 To ListadoClientes.SelectedItems.Count
ObjContactos.bajaCliente(ctype(ListadoClientes.SelectedItems.Item(i),cliente))
ListadoClientes.Items.Remove(ListadoClientes.SelectedItems.Item(i))
Next
End If

