Private Sub Salva()

        Dim dati As String = ""

        For i As Integer = 0 To 6
            For j As Integer = 0 To 23


                dati += DataGridView1.Rows(j).Cells(i).Style.BackColor.ToString + Environment.NewLine
            Next
        Next

        File.WriteAllText("C:\Configurazione.txt", dati)

    End Sub