¿me podeis ayudar? gracias
Código:
Dim comp As Boolean
Dim cuantas As Integer
If MessageBox.Show("¿Desea eliminar los usuarios seleccionados?", "Eliminar contactos", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
If listado.SelectedRows.Count > 0 Then
cuantas = listado.SelectedRows.Count
Dim objauxclient As claseContacto
Dim i As Integer
i = 0
For Each dr As DataGridViewRow In listado.SelectedRows
While cuantas > 0
If listado.Item(0, i).Selected Then
objauxclient = (listado.Item(0, i).Value) 'ERROR: No se puede convertir un objeto de tipo 'System.Int32' al tipo 'misContactos.claseContacto'.
If baseDatos.Baja(objauxclient) Then
comp = True
Else
comp = False
End If
i = i + 1
cuantas = cuantas - 1
Else
i = i + 1
End If
End While
Next
Else
MsgBox("ERROR")
End If
If comp = True Then
MsgBox("eliminados correctamente")
Else
MsgBox("Error")
End If
Else
MsgBox("Seleccione al menos un contacto", MsgBoxStyle.Exclamation)
End If
End Sub

