Imports System.ComponentModel
Imports System.IO

Public Class Form76
    Dim kara As Integer = 0
    Private Sub Form76_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            GunaLabel9.ForeColor = Color.White
            GunaLabel10.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If

        Dim lines429() As String = File.ReadAllLines(couleur)
        If lines429(0) = 0 Then
            GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
        ElseIf lines429(0) = 1 Then
            GunaGoogleSwitch5.CheckedOnColor = Color.Green
            GunaGoogleSwitch5.FillColor = Color.Green
        ElseIf lines429(0) = 2 Then
            GunaGoogleSwitch5.CheckedOnColor = Color.Blue
            GunaGoogleSwitch5.FillColor = Color.Blue
        ElseIf lines429(0) = 3 Then
            GunaGoogleSwitch5.CheckedOnColor = Color.Red
            GunaGoogleSwitch5.FillColor = Color.Red
        End If

        Dim lines1() As String = File.ReadAllLines(musiquepar)
        If lines1(0) = 1 Then
            GunaGoogleSwitch5.Checked = True
        Else
            GunaGoogleSwitch5.Checked = False
        End If
    End Sub
    Private Sub Form76_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim msg = MsgBox("Voulez-vous enregistrer ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            If kara = 1 Then
                Dim sw1 As New StreamWriter(musiquepar)
                sw1.WriteLine(kara)
                sw1.Close()
                Form25.PictureBox5.Show()
                MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
            Else
                Dim sw1 As New StreamWriter(musiquepar)
                sw1.WriteLine(kara)
                sw1.Close()
                Form25.PictureBox5.Hide()
                MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
            End If
        Else

        End If
    End Sub

    Private Sub GunaGoogleSwitch5_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch5.CheckedChanged
        If GunaGoogleSwitch5.Checked = True Then
            kara = 1
            GunaLabel10.Text = "Activée"
        Else
            kara = 0
            GunaLabel10.Text = "Désactivé"
        End If
    End Sub
End Class