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