Private Sub BtnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEliminar.Click cargaContenidoFilaSelectBusqueda() 'primero validar que no tenga cursos asociados, If (Me.gestorAreaEducativa.cursosAsociados(Me.objAreaEducativaEN)) Then MessageBox.Show("Existen cursos asociados al Área Educativa " + "'" + Me.objAreaEducativaEN.Nombre + "'", "Eliminar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Error) 'dentro del AD ya verifico la existencia del Area Educativa Else 'mensajes de confirmacion Dim confirmacion As DialogResult = MessageBox.Show("Desea realmente eliminar el Área Educativa " + Me.objAreaEducativaEN.Nombre, "Eliminar Área Educativa", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) If (confirmacion = Windows.Forms.DialogResult.Yes) Then Me.gestorAreaEducativa.eliminarAreaEducativa(Me.objAreaEducativaEN) 'mensaje de informacion MessageBox.Show("Se eliminó exitosamente el Área Educativa " + "'" + Me.objAreaEducativaEN.Nombre + "'", "Eliminar Área Educativa", MessageBoxButtons.OK, MessageBoxIcon.Information) End If End If 'ejecuto nuevamente la busqueda para actualizar la grilla Me.llenaGrillaBuscar() End Sub