Private Sub Elimina_selezionati_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Elimina_selezionati.Click
        Dim c, x As Integer
        c = 0
        x = 0
        For c = 0 To DataGridView.RowCount - 1
            If DataGridView.Rows(x).Cells(indice della colonna col check).Value = True Then
                DataGridView.Rows.RemoveAt(x)
            Else
                x += 1
            End If
        Next
    End Sub