Imports System.ComponentModel
Imports System.IO
Imports System.Net
Imports System.Net.Mail
Imports AxWMPLib
Imports System.Text
Imports System.Security.Cryptography
Imports System.Math
Imports System.Diagnostics.Eventing.Reader

Public Class Form3
    Dim settings1 As String = repertoire & "settings1.txt"
    Dim thémetemps As Integer = 0
    Dim volume As Integer = 0
    Dim radiov As Integer = 0
    Dim mis As Integer = 0
    Dim profilnomtemps As String = ""
    Dim démarage As Integer = 0
    Dim notif As Integer = 1
    Dim théme2 As Integer = 0
    Dim letterchange As Integer = 0

    Dim lockop As Integer = 0
    Dim lockradio As Integer = 0
    Dim lockapp As Integer = 0
    Dim lockhistorique As Integer = 0
    Dim lockfilm As Integer = 0
    Dim rtf As String = 0
    Dim confirm As Integer = 0
    Dim minivolume As Integer = 0
    Dim plan As Integer = 0
    Dim miniradio As Integer = 0
    Dim kara As Integer = 0
    Dim playlistvolume As Integer = 0
    Dim vch As Integer = 0
    Dim vmp As Integer = 0
    Dim plans As Integer = 0
    Dim chh As Integer = 0
    Dim dlcn As Integer = 0
    Public chh2 As Integer = 0
    Dim marquerauto As Integer = 0
    Dim marquerautotemps As Integer = 0
    Dim closea As Integer = 0
    Public passeincor As Integer = 0
    Dim parchange As Integer = 0
    Dim marqueurtempsa As Integer = 0
    Dim couleurtemps As Integer = 0
    Dim misauto As Integer = 0
    Dim checkreini As Integer = 0
    Dim Chemin = repertoire.ToString
    Dim v, TailleTotale As Double
    Public profpasstemps As String = ""
    Dim changernomprof As Integer = 0
    Dim ergister As Integer = 0
    Dim ergister2 As Integer = 0
    Dim Dossiers, Fichiers, Dossier
    Dim dosSYNC As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\lecteur média SYNC\"
    Dim thémetempsperso As String = ""
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            ComboBox1.Text = " "
            ComboBox1.Enabled = False
        Else
            ComboBox1.Enabled = True
            ComboBox1.SelectedItem = "50"
        End If
    End Sub
    Dim dl As Integer = 0
    Private Sub Form3_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines47a() As String = File.ReadAllLines(dosparamètres & "/autostop.txt")
        If lines47a(0) = 0 Then
            ComboBox20.SelectedItem = "Désactivée"
        ElseIf lines47a(0) = 1 Then
            ComboBox20.SelectedItem = "1 heurs"
        ElseIf lines47a(0) = 2 Then
            ComboBox20.SelectedItem = "2 heurs"
        ElseIf lines47a(0) = 3 Then
            ComboBox20.SelectedItem = "3 heurs"
        ElseIf lines47a(0) = 4 Then
            ComboBox20.SelectedItem = "4 heurs"
        ElseIf lines47a(0) = 5 Then
            ComboBox20.SelectedItem = "5 heurs"
        ElseIf lines47a(0) = 6 Then
            ComboBox20.SelectedItem = "6 heurs"
        ElseIf lines47a(0) = 7 Then
            ComboBox20.SelectedItem = "7 heurs"
        ElseIf lines47a(0) = 8 Then
            ComboBox20.SelectedItem = "8 heurs"
        ElseIf lines47a(0) = 9 Then
            ComboBox20.SelectedItem = "9 heurs"
        ElseIf lines47a(0) = 10 Then
            ComboBox20.SelectedItem = "10 heurs"
        End If


        For Each fichier As String In IO.Directory.GetDirectories(dostheme)
            Dim info As New IO.FileInfo(fichier)
            ComboBox3.Items.Add(info.Name)
        Next

        If File.Exists(doscontroleparantal & "active.txt") = True Then
            Button43.Show()
            Button42.Text = "Désactivée"
        Else
            Button43.Hide()
            Button42.Text = "Activer"
        End If

        Dim lines46a() As String = File.ReadAllLines(Form1.settingfilm)
        If lines46a(0) = 1 Then
            GunaGoogleSwitch18.Checked = True
            GunaLabel29.Text = "Activer"
        Else
            GunaGoogleSwitch18.Checked = False
            GunaLabel29.Text = "Désactivée"
        End If

        Dim lines45a() As String = File.ReadAllLines(Form1.settingseries)
        If lines45a(0) = 1 Then
            ComboBox17.SelectedItem = "Effet sonore"
        ElseIf lines45a(0) = 0 Then
            ComboBox17.SelectedItem = "Ne rien faire"
        ElseIf lines45a(0) = 2 Then
            ComboBox17.SelectedItem = "Verrouiller la session"
        ElseIf lines45a(0) = 3 Then
            ComboBox17.SelectedItem = "Fermer la session"
        ElseIf lines45a(0) = 4 Then
            ComboBox17.SelectedItem = "Mettre en veille prolonger"
        ElseIf lines45a(0) = 5 Then
            ComboBox17.SelectedItem = "Arrêter l'ordinateur"
        End If

        If lines45a(1) = 0 Then
            GunaGoogleSwitch17.Checked = False
            GunaLabel13.Text = "Désactivée"
        Else
            GunaGoogleSwitch17.Checked = True
            GunaLabel13.Text = "Activer"
        End If

        Dim lines45() As String = File.ReadAllLines(fichiermisajourdev)
        If lines45(0) = 1 Then
            ComboBox19.SelectedItem = "Bêta"
        Else
            ComboBox19.SelectedItem = "Stable"
        End If

        If vrportable = 1 Then
            GunaLabel28.Hide()
            ComboBox19.Hide()
            ChromeButton1.Hide()
        End If

        Label43.Text = "Nombre de profils: " & coutprofils

        If vrportable = 1 Then
            Dim folderSize As Long = FolderSizeCalculator.GetFolderSize(Application.StartupPath)
            Dim toutlesdossier = func_RoundTaille(LaTaille:=folderSize)
            Label49.Text = toutlesdossier
            Dim folderSize2 As Long = FolderSizeCalculator.GetFolderSize(repertoirebacup)
            Dim backupdossier = func_RoundTaille(LaTaille:=folderSize2)
            Label48.Text = backupdossier
            Dim bc = folderSize2 / folderSize * 100
            CircularProgressBar1.Value = bc
            CircularProgressBar1.Text = CircularProgressBar1.Value & "%"
            Dim folderSize3 As Long = FolderSizeCalculator.GetFolderSize(repertoireavis)
            Dim datadossier = func_RoundTaille(LaTaille:=folderSize3)
            Label39.Text = datadossier
            Dim bc2 = folderSize3 / folderSize * 100
            CircularProgressBar3.Value = bc2
            CircularProgressBar3.Text = CircularProgressBar3.Value & "%"
            Dim folderSize4 As Long = FolderSizeCalculator.GetFolderSize(film)
            Dim filmdossier = func_RoundTaille(LaTaille:=folderSize4)
            Label44.Text = filmdossier
            Dim bc3 = folderSize4 / folderSize * 100
            CircularProgressBar4.Value = bc3
            CircularProgressBar4.Text = CircularProgressBar4.Value & "%"
            Dim folderSize5 As Long = FolderSizeCalculator.GetFolderSize(dossérie)
            Dim sériesdossier = func_RoundTaille(LaTaille:=folderSize5)
            Label45.Text = sériesdossier
            Dim bc4 = folderSize5 / folderSize * 100
            CircularProgressBar5.Value = bc4
            CircularProgressBar5.Text = CircularProgressBar5.Value & "%"
            Dim folderSize6 As Long = FolderSizeCalculator.GetFolderSize(discté)
            Dim disctédossier = func_RoundTaille(LaTaille:=folderSize6)
            Label47.Text = disctédossier
            Dim bc5 = folderSize6 / folderSize * 100
            CircularProgressBar7.Value = bc5
            CircularProgressBar7.Text = CircularProgressBar7.Value & "%"
            Dim folderSize7 As Long = FolderSizeCalculator.GetFolderSize(dosplaylist)
            Dim playlistossier = func_RoundTaille(LaTaille:=folderSize7)
            Label46.Text = playlistossier
            Dim bc6 = folderSize7 / folderSize * 100
            CircularProgressBar6.Value = bc6
            CircularProgressBar6.Text = CircularProgressBar6.Value & "%"
            Dim folderSize8 = folderSize - folderSize2 - folderSize4 - folderSize5 - folderSize6 - folderSize7
            Dim autredossier = func_RoundTaille(LaTaille:=folderSize8)
            Label57.Text = autredossier
            Dim bc7 = folderSize8 / folderSize * 100
            CircularProgressBar8.Value = bc7
            CircularProgressBar8.Text = CircularProgressBar8.Value & "%"
        Else
            Dim fsize As Long
            For Each file As String In My.Computer.FileSystem.GetFiles(mesbacup)
                Dim finnfo As New System.IO.FileInfo(file)
                fsize += finnfo.Length
            Next

            Dim fsize2 As Long
            For Each file2 As String In My.Computer.FileSystem.GetFiles(Application.StartupPath)
                Dim finnfo2 As New System.IO.FileInfo(file2)
                fsize2 += finnfo2.Length
            Next

            Dim folderSize As Long = FolderSizeCalculator.GetFolderSize(repertoireavis)

            Dim folderSize2 As Long = FolderSizeCalculator.GetFolderSize(film)

            Dim folderSize3 As Long = FolderSizeCalculator.GetFolderSize(dossérie)

            Dim folderSize4 As Long = FolderSizeCalculator.GetFolderSize(dosplaylist)

            Dim folderSize5 As Long = FolderSizeCalculator.GetFolderSize(Application.StartupPath)

            Dim folderSize7 As Long = FolderSizeCalculator.GetFolderSize(discté)

            Dim folderSize6 As Long = FolderSizeCalculator.GetFolderSize(repertoirebacup)

            Dim test23 = folderSize6 + folderSize5 + folderSize

            Dim test31 = folderSize - folderSize7 - folderSize4 - folderSize3 - folderSize2

            Dim test24 = folderSize6 / test23 * 100

            Dim test26 = folderSize / test23 * 100

            Dim test27 = folderSize2 / test23 * 100

            Dim test28 = folderSize3 / test23 * 100

            Dim test29 = folderSize4 / test23 * 100

            Dim test30 = folderSize7 / test23 * 100

            Dim test32 = test31 / test23 * 100

            CircularProgressBar1.Value = test24
            CircularProgressBar1.Text = CircularProgressBar1.Value & "%"

            CircularProgressBar3.Value = test26
            CircularProgressBar3.Text = CircularProgressBar3.Value & "%"

            CircularProgressBar4.Value = test27
            CircularProgressBar4.Text = CircularProgressBar4.Value & "%"

            CircularProgressBar5.Value = test28
            CircularProgressBar5.Text = CircularProgressBar5.Value & "%"

            CircularProgressBar6.Value = test29
            CircularProgressBar6.Text = CircularProgressBar6.Value & "%"

            CircularProgressBar7.Value = test30
            CircularProgressBar7.Text = CircularProgressBar7.Value & "%"

            CircularProgressBar8.Value = test32
            CircularProgressBar8.Text = CircularProgressBar8.Value & "%"

            Dim azaz = func_RoundTaille(LaTaille:=folderSize)

            Label39.Text = azaz

            Dim azaz2 = func_RoundTaille(LaTaille:=folderSize2)

            Label44.Text = azaz2

            Dim azaz3 = func_RoundTaille(LaTaille:=test23)

            Label49.Text = azaz3

            Dim azaz4 = func_RoundTaille(LaTaille:=folderSize6)

            Label48.Text = azaz4

            Dim azaz5 = func_RoundTaille(LaTaille:=folderSize3)

            Label45.Text = azaz5

            Dim azaz6 = func_RoundTaille(LaTaille:=folderSize7)

            Label47.Text = azaz6

            Dim azaz7 = func_RoundTaille(LaTaille:=folderSize4)

            Label46.Text = azaz7

            Dim azaz8 = func_RoundTaille(LaTaille:=test31)

            Label57.Text = azaz8
        End If

        Dim lines44() As String = File.ReadAllLines(dosprofils & "/" & nomprofils & "/default.txt")
        If lines44(0) = 1 Then
            Button40.Enabled = False
        Else
            ChromeTabcontrol6.TabPages.Remove(TabPage12)
        End If

        Label42.Text = "Nom de votre profil: " & nomprofils
        GunaCirclePictureBox1.Image = Image.FromFile(dosprofils & "/" & nomprofils & "/photo.png")

        Timer9.Stop()

        LinkLabel3.Hide()
        checkreini = 0

        ComboBox2.SelectedItem = "Tout le lecteur média"
        ListBox5.Items.Clear()
        ListBox6.Items.Clear()

        For Each fichier As String In IO.Directory.GetFiles(mesbacup)
            Dim info As New IO.FileInfo(fichier)
            ListBox5.Items.Add(info.Name)
        Next

        For Each fichier As String In IO.Directory.GetFiles(dosentère)
            Dim info As New IO.FileInfo(fichier)
            ListBox6.Items.Add(info.Name)
        Next

        Button10.Show()
        Button23.Hide()
        TabPage21.BackColor = Color.FromArgb(64, 64, 64)
        Dim lines4() As String = File.ReadAllLines(théme)
        thémetemps = lines4(0)
        If lines4(0) = 1 Then
            ComboBox3.SelectedItem = "Clair"
        ElseIf lines4(0) = 2 Then
            ComboBox3.SelectedItem = "Sombre"
            noir()
        ElseIf lines4(0) = 3 Then
            Dim lines1() As String = File.ReadAllLines(themeselect)
            ComboBox3.SelectedItem = lines1(0)
            thémetempsperso = lines1(0)
            GunaLabel30.ForeColor = Form1.ForeColor
            ComboBox20.BackColor = Form1.BackColor
            ComboBox20.ForeColor = Form1.ForeColor
            Button48.BackColor = Form1.BackColor
            Button48.ForeColor = Form1.ForeColor
            Label24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CircularProgressBar8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaCirclePictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel1.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel2.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel3.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Panel21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Panel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Panel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            CheckBox26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ChromeButton1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ChromeButton2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaGoogleSwitch15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            LinkLabel1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            LinkLabel2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            LinkLabel3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            TextBox12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ComboBox18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ListBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Panel20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaLabel1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaLabel27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ListBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            TextBox12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ComboBox18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            CheckBox26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel1.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LinkLabel2.LinkColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If

        Dim lines5() As String = File.ReadAllLines(fichierconfigbackup)
        If lines5(0) = 1 Or 2 Then
            Button26.Visible = True
            Button31.Visible = True
        ElseIf lines5(0) = 0 Then
            Button26.Visible = False
            Button31.Hide()
        End If

        If lines5(0) = 1 Then
            Label37.Text = "Type: tous les jours"
            Button25.Text = "Modifier la sauvegarde"
            Button26.Show()
            Label38.Text = "Heurs: " & lines5(1) & "h" & lines5(2)
            Label37.Show()
            Label38.Show()
            Label40.Hide()
        ElseIf lines5(0) = 2 Then
            Button26.Show()
            Button25.Text = "Modifier la sauvegarde"
            Label37.Text = "Type: par moins"
            Label38.Text = "Heurs: " & lines5(1) & "h" & lines5(2)
            Label40.Text = "Le jours: " & lines5(3)
            Label37.Show()
            Label38.Show()
            Label40.Show()
        Else
            Button26.Visible = False
            Button31.Visible = False
        End If

        Dim lines6() As String = File.ReadAllLines(lastedbackup)
        If lines6(0) = 1 Then
            Label41.Text = "Dernière sauvegarde: Le " & lines6(1) & "/" & lines6(2) & "/" & lines6(3) & " a " & lines6(4) & "h" & lines6(5)
            Label41.Show()
        Else
            Label41.Hide()
        End If

        Dim nb As Integer = Directory.GetFiles(marqueur).Length
        If nb >= 2 Then
            Button24.Show()
        Else
            Button24.Hide()
        End If

        ComboBox15.Items.Add("Part default")
        ComboBox15.Items.Add("Parcourir")

        ComboBox16.Items.Add("Part default")
        ComboBox16.Items.Add("Parcourir")

        If File.Exists(compte & "co.zip") = True Then
            File.Delete(compte & "co.zip")
        End If

        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(fichier)
        Next

        If File.Exists(compte & "photo.png") = True Then
            File.Delete(compte & "photo.png")
        End If

        Dim date1 As Integer = 1900

        While True
            If date1 = 2061 Then
                Exit While
            Else
                ComboBox13.Items.Add(date1)
                date1 = date1 + 1
            End If
        End While
        Try
            If My.Computer.Network.Ping("www.google.com") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                If vri = 1 Then
                    Form1.NotifyIcon1.BalloonTipTitle = "serveur"
                    Form1.NotifyIcon1.BalloonTipText = "le serveur de lecteur média est indisponnible !!!"
                    Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
                    Form1.NotifyIcon1.ShowBalloonTip(0)
                    Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
                    ChromeTabcontrol1.TabPages.Remove(TabPage2)
                    finiload()
                Else
                    Dim lines1() As String = File.ReadAllLines(comtpeco2)
                    If lines1(0) = 1 Then
                        loadco()
                    Else
                        Label17.Show()
                        Label18.Show()
                        TextBox7.Show()
                        TextBox8.Show()
                        Button12.Show()
                        Button11.Show()
                        Panel1.Show()
                        Panel2.Hide()
                        PictureBox4.Hide()
                        finiload()
                    End If
                End If
            Else
                ChromeTabcontrol1.TabPages.Remove(TabPage2)
                finiload()
            End If
        Catch ex As Exception
            Form1.NotifyIcon1.BalloonTipTitle = "internet"
            Form1.NotifyIcon1.BalloonTipText = "vous n'êtes pas connecter a internet"
            Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Warning
            Form1.NotifyIcon1.ShowBalloonTip(0)
            Form1.NotifyIcon1.BalloonTipIcon = ToolTipIcon.Info
            ChromeTabcontrol1.TabPages.Remove(TabPage2)
            ChromeTabcontrol1.TabPages.Remove(TabPage20)
            finiload()
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs)
        Dim volume As Integer = 0
        Dim radiov As Integer = 1
        Dim mis As Integer = 0
        Dim démarage As Integer = 0
        Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        ComboBox1.Show()
        If File.Exists(settings1) Then
            Dim lines2() As String = File.ReadAllLines(settings1)

            If lines2(3) = 1 Then
                key.DeleteValue(Application.ProductName)
            End If
        End If
        CheckBox1.Checked = False
        Dim sw As New StreamWriter(settings1)
        sw.WriteLine(volume)
        sw.WriteLine(radiov)
        sw.WriteLine(mis)
        sw.WriteLine(démarage)
        sw.Close()
        volume = 0
        radiov = 0
        mis = 0
        démarage = 0
        Me.Close()
    End Sub
    Private Sub Form3_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs)
        Dim lines3() As String = File.ReadAllLines(notification)
        If lines3(0) = 0 Then
            nonotif()
        ElseIf lines3(0) = 1 Then
            lang1()
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        ListBox1.ContextMenuStrip.Enabled = False
        Button1.Enabled = False
        If ListBox1.Items.Count = 0 Then
            MsgBox("Aucun Favori a été trouvez", MsgBoxStyle.Exclamation)
        Else
            Dim t1 = ListBox1.SelectedItem
            Dim t2 = Favoris1 & t1 & "\flux.txt"
            Dim t3 = Favoris1 & t1
            File.Delete(t2)
            Directory.Delete(t3)

            MsgBox("Le Favori: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)

            ListBox1.Items.Clear()

            For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
                Dim info As New IO.FileInfo(fichier)
                ListBox1.Items.Add(info.Name)
            Next
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim sw4 As New StreamWriter(Favoris1)
        ListBox1.Items.Clear()
        For Each item In ListBox1.Items
            sw4.WriteLine(item)
        Next
        sw4.Close()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sw As New StreamWriter(historique)
        sw.WriteLine(0)
        sw.Close()
        ListBox2.Items.Clear()
    End Sub
    Sub nonotif()
        Dim t1 = ListBox1.SelectedItem
        Dim t2 = Favoris1 & t1 & "\flux.txt"
        Dim lines1() As String = File.ReadAllLines(t2)
        TextBox3.Text = lines1(0)
        If TextBox3.Text.EndsWith(".mp4") Or TextBox3.Text.EndsWith(".avi") Or TextBox3.Text.EndsWith(".mkv") Or TextBox3.Text.EndsWith(".mov") Or TextBox3.Text.EndsWith(".wmv") Then
            Form1.AxWindowsMediaPlayer1.URL = lines1(0)
            Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
            Dim sw4 As New StreamWriter(historique)
            Form1.ComboBox1.Text = " "
            Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
            Form1.PictureBox2.Hide()
            Form1.PictureBox7.Hide()
            Form1.PictureBox1.Hide()
            Form1.PictureBox4.Show()
            Form1.VitesseToolStripMenuItem.Enabled = True
            Form1.AllaiAToolStripMenuItem.Enabled = True
            Form1.PictureBox5.Enabled = True
            Form1.PictureBox6.Enabled = True
            Form1.PictureBox7.Enabled = True
            Form1.PauseToolStripMenuItem.Enabled = True
            Form1.StopToolStripMenuItem.Enabled = True
            Form1.PleinToolStripMenuItem.Enabled = True
            Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)

            For Each item In ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
        ElseIf TextBox3.Text.EndsWith(".mp3") Then
            Form1.AxWindowsMediaPlayer1.URL = (ListBox1.SelectedItem)
            Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
            Dim sw4 As New StreamWriter(historique)
            Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
            Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)

            For Each item In ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            Form1.PictureBox7.Hide()
            Form1.PictureBox2.Show()
            Form1.PictureBox1.Hide()
            Form1.PictureBox4.Show()
            Form1.VitesseToolStripMenuItem.Enabled = False
            Form1.AllaiAToolStripMenuItem.Enabled = False
            Form1.PictureBox5.Enabled = True
            Form1.PictureBox6.Enabled = True
            Form1.PictureBox7.Enabled = True
            Form1.PleinToolStripMenuItem.Enabled = False
            Form1.PauseToolStripMenuItem.Enabled = True
            Form1.StopToolStripMenuItem.Enabled = True
            Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
        End If
        Close()
    End Sub
    Sub lang1()
        fr1()
    End Sub
    Sub fr1()
        Dim t1 = ListBox1.SelectedItem
        Dim t2 = Favoris1 & t1 & "\flux.txt"
        Dim lines1() As String = File.ReadAllLines(t2)
        TextBox3.Text = lines1(0)
        If TextBox3.Text.EndsWith(".mp4") Or TextBox3.Text.EndsWith(".avi") Or TextBox3.Text.EndsWith(".mkv") Or TextBox3.Text.EndsWith(".mov") Or TextBox3.Text.EndsWith(".wmv") Then
            Form1.AxWindowsMediaPlayer1.URL = lines1(0)
            Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
            Dim sw4 As New StreamWriter(historique)
            Form1.ComboBox1.Text = " "
            Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
            Form1.PictureBox2.Hide()
            Form1.PictureBox7.Hide()
            Form1.PictureBox1.Hide()
            Form1.PictureBox4.Show()
            Form1.VitesseToolStripMenuItem.Enabled = True
            Form1.AllaiAToolStripMenuItem.Enabled = True
            Form1.PictureBox5.Enabled = True
            Form1.PictureBox6.Enabled = True
            Form1.PictureBox7.Enabled = True
            Form1.PauseToolStripMenuItem.Enabled = True
            Form1.StopToolStripMenuItem.Enabled = True
            Form1.PleinToolStripMenuItem.Enabled = True
            Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
            Form1.NotifyIcon1.BalloonTipText = "vous regarder:" & " " & Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1.NotifyIcon1.ShowBalloonTip(1)
            Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)

            For Each item In ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
        ElseIf TextBox3.Text.EndsWith(".mp3") Then
            Form1.AxWindowsMediaPlayer1.URL = lines1(0)
            Form1.AjoutéAuFavorisToolStripMenuItem.Enabled = True
            Dim sw4 As New StreamWriter(historique)
            Form1.TextBox1.Text = Form1.AxWindowsMediaPlayer1.URL
            Form1.ListBox1.Items.Add(Form1.AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)

            For Each item In ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            Form1.PictureBox7.Hide()
            Form1.PictureBox2.Show()
            Form1.PictureBox1.Hide()
            Form1.PictureBox4.Show()
            Form1.VitesseToolStripMenuItem.Enabled = False
            Form1.AllaiAToolStripMenuItem.Enabled = False
            Form1.PictureBox5.Enabled = True
            Form1.PictureBox6.Enabled = True
            Form1.PictureBox7.Enabled = True
            Form1.PleinToolStripMenuItem.Enabled = False
            Form1.PauseToolStripMenuItem.Enabled = True
            Form1.StopToolStripMenuItem.Enabled = True
            Form1.NotifyIcon1.BalloonTipTitle = "lecteur média"
            Form1.NotifyIcon1.BalloonTipText = "vous écouter:" & " " & Form1.AxWindowsMediaPlayer1.currentMedia.name
            Form1.NotifyIcon1.ShowBalloonTip(1)
            Form1.Text = "lecteur média" & ": " & Form1.AxWindowsMediaPlayer1.currentMedia.name
        End If
        Close()
    End Sub
    Private Sub LireToolStripMenuItem_Click(sender As Object, e As EventArgs)
        Dim lines3() As String = File.ReadAllLines(notification)
        If lines3(0) = 0 Then
            nonotif()
        ElseIf lines3(0) = 1 Then
            lang1()
        End If
    End Sub

    Private Sub SupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerToolStripMenuItem.Click
        ListBox1.ContextMenuStrip.Enabled = False
        Button1.Enabled = False
        If ListBox1.Items.Count = 0 Then
            MsgBox("Aucun Favori a été trouvez", MsgBoxStyle.Exclamation)
        Else
            Dim t1 = ListBox1.SelectedItem
            Dim t2 = Favoris1 & t1 & "\flux.txt"
            Dim t3 = Favoris1 & t1
            File.Delete(t2)
            Directory.Delete(t3)

            MsgBox("Le Favori: " & ListBox1.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)

            ListBox1.Items.Clear()

            For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
                Dim info As New IO.FileInfo(fichier)
                ListBox1.Items.Add(info.Name)
            Next
        End If
    End Sub

    Private Sub ToutSupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutSupprimerToolStripMenuItem.Click
        Dim sw4 As New StreamWriter(Favoris1)
        ListBox1.Items.Remove(ListBox1.SelectedItem)
        For Each item In ListBox1.Items
            sw4.WriteLine(item)
        Next
        sw4.Close()
    End Sub

    Private Sub Form3_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        letterchange = 0
        ComboBox5.Items.Clear()
        ComboBox6.Items.Clear()
        ComboBox9.Items.Clear()
        PictureBox11.Hide()
        Dim lines1001() As String = File.ReadAllLines(imgmusique)
        Dim lines1005() As String = File.ReadAllLines(ettt)
        Dim msg = MsgBox("Voulez-vous enregistrer ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then

            If ComboBox20.SelectedItem = "Désactivée" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(0)
                sw4.Close()
                Form1.min = "-1"
                Form1.minmax = "-1"
            ElseIf ComboBox20.SelectedItem = "1 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(1)
                sw4.Close()
                Form1.min = "60"
                Form1.minmax = "60"
            ElseIf ComboBox20.SelectedItem = "2 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(2)
                sw4.Close()
                Form1.min = "120"
                Form1.minmax = "120"
            ElseIf ComboBox20.SelectedItem = "3 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(3)
                sw4.Close()
                Form1.min = "180"
                Form1.minmax = "180"
            ElseIf ComboBox20.SelectedItem = "4 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(4)
                sw4.Close()
                Form1.min = "240"
                Form1.minmax = "240"
            ElseIf ComboBox20.SelectedItem = "5 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(5)
                sw4.Close()
                Form1.min = "300"
                Form1.minmax = "300"
            ElseIf ComboBox20.SelectedItem = "6 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(6)
                sw4.Close()
                Form1.min = "360"
                Form1.minmax = "360"
            ElseIf ComboBox20.SelectedItem = "7 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(7)
                sw4.Close()
                Form1.min = "420"
                Form1.minmax = "420"
            ElseIf ComboBox20.SelectedItem = "8 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(8)
                sw4.Close()
                Form1.min = "480"
                Form1.minmax = "480"
            ElseIf ComboBox20.SelectedItem = "9 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(9)
                sw4.Close()
                Form1.min = "540"
                Form1.minmax = "540"
            ElseIf ComboBox20.SelectedItem = "10 heurs" Then
                Dim sw4 As New StreamWriter(dosparamètres & "/autostop.txt")
                sw4.WriteLine(10)
                sw4.Close()
                Form1.min = "600"
                Form1.minmax = "600"
            End If

            Dim activelastpagesseries As Integer = 0
                If GunaGoogleSwitch17.Checked = True Then
                    activelastpagesseries = 1
                Else
                    activelastpagesseries = 0
                End If

                Dim activelastpagesfilm As Integer = 0
                If GunaGoogleSwitch18.Checked = True Then
                    activelastpagesfilm = 1
                Else
                    activelastpagesfilm = 0
                End If

                Dim sw17 As New StreamWriter(Form1.settingfilm)
                sw17.WriteLine(activelastpagesfilm)
                sw17.WriteLine(activelastpagesseries)
                sw17.Close()

                If ComboBox17.SelectedItem = "Ne rien faire" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(0)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                ElseIf ComboBox17.SelectedItem = "Effet sonore" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(1)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                ElseIf ComboBox17.SelectedItem = "Verrouiller la session" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(2)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                ElseIf ComboBox17.SelectedItem = "Fermer la session" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(3)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                ElseIf ComboBox17.SelectedItem = "Mettre en veille prolonger" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(4)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                ElseIf ComboBox17.SelectedItem = "Arrêter l'ordinateur" Then
                    Dim sw1 As New StreamWriter(Form1.settingseries)
                    sw1.WriteLine(5)
                    sw1.WriteLine(activelastpagesseries)
                    sw1.Close()
                End If

                If ComboBox19.SelectedItem = "Stable" Then
                    Dim sw1 As New StreamWriter(fichiermisajourdev)
                    sw1.WriteLine(0)
                    sw1.Close()
                    canalmis = 0
                Else
                    Dim sw1 As New StreamWriter(fichiermisajourdev)
                    sw1.WriteLine(1)
                    sw1.Close()
                    canalmis = 1
                End If

                If CheckBox27.Checked = True Then
                    Dim lines1011() As String = File.ReadAllLines(compte & "\passtemps.txt")
                    Dim sw141 As New StreamWriter(dosprofils & nomprofils & "\passe.txt")
                    sw141.WriteLine(lines1011(0))
                    sw141.Close()
                Else

                End If

                If profpasstemps = "" Then

                Else
                    Dim sw141 As New StreamWriter(dosprofils & nomprofils & "\passe.txt")
                    sw141.WriteLine(profpasstemps)
                    sw141.Close()
                End If

                Dim sw14 As New StreamWriter(marqueurtemp)
                sw14.WriteLine(marqueurtempsa)
                sw14.Close()

                Dim sw15 As New StreamWriter(couleur)
                sw15.WriteLine(couleurtemps)
                sw15.Close()


                If ComboBox16.SelectedItem = "Part default" Then
                    Dim sw9 As New StreamWriter(ettt)
                    sw9.WriteLine(0)
                    sw9.WriteLine(0)
                    sw9.WriteLine(0)
                    sw9.Close()
                Else
                    Dim sw9 As New StreamWriter(ettt)
                    sw9.WriteLine(1)
                    sw9.WriteLine(OpenFileDialog3.SafeFileName)
                    sw9.WriteLine(OpenFileDialog3.FileName)
                    sw9.Close()
                    Form21.Process1.StartInfo.FileName = OpenFileDialog3.FileName
                End If


                If ComboBox15.SelectedItem = "Part default" Then
                    If File.Exists(lines1001(2)) = True Then
                        Form1.PictureBox2.Image.Dispose()
                        PictureBox6.Image.Dispose()
                        Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
                        PictureBox6.Dispose()
                        PictureBox6.Image = My.Resources.cropped_note_radomisol_musique
                        File.Delete(lines1001(2))
                        Dim sw9 As New StreamWriter(imgmusique)
                        sw9.WriteLine(0)
                        sw9.WriteLine(0)
                        sw9.WriteLine(0)
                        sw9.Close()
                    Else
                        Form1.PictureBox2.Image.Dispose()
                        Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
                        PictureBox6.Dispose()
                        PictureBox6.Image = My.Resources.cropped_note_radomisol_musique
                        File.Delete(lines1001(2))
                        Dim sw9 As New StreamWriter(imgmusique)
                        sw9.WriteLine(0)
                        sw9.WriteLine(0)
                        sw9.WriteLine(0)
                        sw9.Close()
                    End If

                ElseIf ComboBox15.SelectedItem = lines1001(1) Then

                Else
                    Form1.PictureBox2.Image.Dispose()
                    Try
                        PictureBox6.Image.Dispose()
                    Catch ex As Exception

                    End Try
                    Dim sw9 As New StreamWriter(imgmusique)
                    sw9.WriteLine(1)
                    sw9.WriteLine(OpenFileDialog2.SafeFileName)
                    sw9.WriteLine(repertoire & OpenFileDialog2.SafeFileName)
                    sw9.Close()
                    FileCopy(OpenFileDialog2.FileName, repertoire & OpenFileDialog2.SafeFileName)
                    If File.Exists(lines1001(2)) = True Then
                        Dim lines1002() As String = File.ReadAllLines(imgmusique)
                        Form1.PictureBox2.Image.Dispose()
                        PictureBox6.Image.Dispose()
                        Form1.PictureBox2.Image = My.Resources.cropped_note_radomisol_musique
                        File.Delete(lines1002(2))
                        Form1.PictureBox2.Image = Image.FromFile(lines1002(2))
                        PictureBox6.Image = Image.FromFile(lines1002(2))
                    Else
                        Dim lines1003() As String = File.ReadAllLines(imgmusique)
                        Form1.PictureBox2.Image = Image.FromFile(lines1003(2))
                        PictureBox6.Image = Image.FromFile(lines1003(2))
                    End If
                End If

                Dim lines426() As String = File.ReadAllLines(settings1)
                If lines426(5) = 1 Then
                   Timer25.Stop
                End If

            If marquerautotemps = 1 Then
                Form1.Timer25.Interval = 60000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 3 Then
                Form1.Timer25.Interval = 180000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 5 Then
                Form1.Timer25.Interval = 300000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 10 Then
                Form1.Timer25.Interval = 600000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 15 Then
                Form1.Timer25.Interval = 900000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 20 Then
                Form1.Timer25.Interval = 1200000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 25 Then
                Form1.Timer25.Interval = 1500000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 30 Then
                Form1.Timer25.Interval = 1800000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 35 Then
                Form1.Timer25.Interval = 2100000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 40 Then
                Form1.Timer25.Interval = 2400000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 45 Then
                Form1.Timer25.Interval = 2700000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 50 Then
                Form1.Timer25.Interval = 3000000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 55 Then
                Form1.Timer25.Interval = 3300000
                Form1.Timer25.Start()
            ElseIf marquerautotemps = 60 Then
                Form1.Timer25.Interval = 3600000
                Form1.Timer25.Start()
            End If

            If GunaGoogleSwitch1.Checked = True Then
                mis = 1
            Else
                mis = 0
            End If

            If GunaGoogleSwitch2.Checked = True Then
                démarage = 1
            Else
                démarage = 0
            End If

            If GunaGoogleSwitch3.Checked = True Then
                confirm = 1
            Else
                confirm = 0
                End If

                If GunaGoogleSwitch15.Checked = True Then
                    misauto = 1
                Else
                    misauto = 0
                End If

                Label10.Hide()
                Label11.Hide()
                Button9.Hide()
                Button10.Hide()
                Button8.Text = "Tester la radio"
                ComboBox6.Items.Clear()
                ComboBox5.Items.Clear()
                TextBox1.Clear()
                TextBox2.Clear()
                Label6.Hide()
                Label7.Hide()
                Dim st5 As New StreamWriter(settings4)
                Dim st6 As New StreamWriter(settings5)
                If Directory.Exists(repertoire) = False Then
                    Directory.CreateDirectory(repertoire)
                End If

                If ComboBox4.SelectedItem = "Ne rien faire" Then
                    st5.WriteLine(0)
                    st5.Close()
                    st6.WriteLine(0)
                    st6.Close()
                ElseIf ComboBox4.SelectedItem = "Effet sonore" Then
                    st5.WriteLine(1)
                    st5.Close()
                    st6.WriteLine(0)
                    st6.Close()
                ElseIf ComboBox4.SelectedItem = "Verrouiller la session" Then
                    st5.WriteLine(2)
                    st5.Close()
                    st6.WriteLine(2)
                    st6.Close()
                ElseIf ComboBox4.SelectedItem = "Fermer la session" Then
                    st5.WriteLine(2)
                    st5.Close()
                    st6.WriteLine(1)
                    st6.Close()
                ElseIf ComboBox4.SelectedItem = "Arrêter l'ordinateur" Then
                    st5.WriteLine(2)
                    st5.Close()
                    st6.WriteLine(3)
                    st6.Close()
                ElseIf ComboBox4.SelectedItem = "Mettre en veille prolonger" Then
                    st5.WriteLine(2)
                    st5.Close()
                    st6.WriteLine(4)
                    st6.Close()
                End If

                If CheckBox1.Checked = True Then
                    volume = ComboBox1.Text.ToString
                End If

                If GunaGoogleSwitch4.Checked = True Then
                    radiov = 1
                    Form1.ComboBox1.Show()
                    Form1.Button3.Show()
                Else
                    Form1.ComboBox1.Hide()
                    Form1.Button3.Hide()
                End If


                If GunaGoogleSwitch5.Checked = True Then
                    notif = 1
                Else
                    notif = 0
                End If

                Dim registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
                Dim mer As Integer = 0
                Dim key As Microsoft.Win32.RegistryKey = registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
                Dim vreg = Nothing

                If key.GetValue(Application.ProductName) Is Nothing Then
                    vreg = 0
                Else
                    vreg = 1
                End If

                If démarage = 1 Then
                    If vreg = 0 Then
                        key.SetValue(Application.ProductName, Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String)
                    End If
                Else
                    If vreg = 1 Then
                        key.DeleteValue(Application.ProductName)
                    End If
                End If

                If ComboBox3.SelectedItem = "Sombre" Then
                    théme2 = 2
                    Dim sw1 As New StreamWriter(themeselect)
                    sw1.WriteLine("")
                    sw1.Close()
                ElseIf ComboBox3.SelectedItem = "Clair" Then
                    théme2 = 1
                    Dim sw1 As New StreamWriter(themeselect)
                    sw1.WriteLine("")
                    sw1.Close()
                Else
                    théme2 = 3
                    Dim sw1 As New StreamWriter(themeselect)
                    sw1.WriteLine(ComboBox3.SelectedItem)
                    sw1.Close()
                End If

                If CheckBox13.Checked = True Then
                    rtf = 1
                Else
                    rtf = 0
                End If

                Dim sw13 As New StreamWriter(setting)
                sw13.WriteLine(rtf)
                sw13.Close()


                Dim sw16 As New StreamWriter(fichiermisauto)
                sw16.WriteLine(misauto)
                sw16.Close()


                Dim sw As New StreamWriter(settings1)
                sw.WriteLine(volume)
                sw.WriteLine(radiov)
                sw.WriteLine(mis)
                sw.WriteLine(démarage)
                sw.WriteLine(confirm)
                sw.WriteLine(marquerauto)
                sw.WriteLine(marquerautotemps)
                sw.Close()
                volume = 0
                radiov = 0
                mis = 0
                démarage = 0
                Dim sw2 As New StreamWriter(notification)
                sw2.WriteLine(notif)
                sw2.Close()
                Dim sw3 As New StreamWriter(théme)
                sw3.WriteLine(théme2)
                sw3.Close()

                If CheckBox15.Checked = True Then
                    minivolume = ComboBox7.Text.ToString
                End If

                Dim sw10 As New StreamWriter(settings2)
                sw10.WriteLine(minivolume)
                sw10.WriteLine(plan)
                sw10.WriteLine(miniradio)
                sw10.Close()


                Dim sw11 As New StreamWriter(musiquepar)
                sw11.WriteLine(kara)
                sw11.Close()

                If CheckBox19.Checked = True Then
                    playlistvolume = ComboBox8.Text.ToString
                End If

                Dim sw12 As New StreamWriter(settings3)
                sw12.WriteLine(playlistvolume)
                sw12.WriteLine(vch)
                sw12.WriteLine(vmp)
                sw12.WriteLine(plans)
                sw12.Close()


                MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)

                If profilnomtemps = "" Then

                Else
                    Form1.Timer14.Stop()
                    My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                    nomprofils = profilnomtemps
                    Form152.ShowDialog()
                End If

                If Button26.Visible = True Then
                    Form1.Timer19.Start()
                Else
                    Form1.Timer19.Stop()
                End If


                ComboBox15.Items.Clear()
                passeincor = 0
                ComboBox9.Items.Clear()
                ComboBox16.Items.Clear()

                If théme2 = thémetemps Then
                    If théme2 = 3 Then
                        If thémetempsperso = ComboBox3.SelectedItem Then

                        Else
                            Form152.ShowDialog()
                        End If
                    Else

                    End If
                Else
                    Form152.ShowDialog()
                End If

                For Each fichier As String In IO.Directory.GetDirectories(dostheme)
                    Dim info As New IO.FileInfo(fichier)
                    ComboBox3.Items.Remove(info.Name)
                Next
            End If

            If Button26.Visible = True Then
            Form1.Timer19.Start()
        Else
            Form1.Timer19.Stop()
        End If

        Dim lines429() As String = File.ReadAllLines(couleur)
        If lines429(0) = 0 Then
            GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
            PictureBox7.Image = My.Resources.orange_sel
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines429(0) = 1 Then
            GunaGoogleSwitch1.CheckedOnColor = Color.Green
            GunaGoogleSwitch1.FillColor = Color.Green
            GunaGoogleSwitch2.FillColor = Color.Green
            GunaGoogleSwitch2.CheckedOnColor = Color.Green
            GunaGoogleSwitch3.FillColor = Color.Green
            GunaGoogleSwitch3.CheckedOnColor = Color.Green
            GunaGoogleSwitch4.FillColor = Color.Green
            GunaGoogleSwitch4.CheckedOnColor = Color.Green
            GunaGoogleSwitch5.FillColor = Color.Green
            GunaGoogleSwitch5.CheckedOnColor = Color.Green
            GunaGoogleSwitch6.FillColor = Color.Green
            GunaGoogleSwitch6.CheckedOnColor = Color.Green
            GunaGoogleSwitch7.FillColor = Color.Green
            GunaGoogleSwitch7.CheckedOnColor = Color.Green
            GunaGoogleSwitch8.FillColor = Color.Green
            GunaGoogleSwitch8.CheckedOnColor = Color.Green
            GunaGoogleSwitch9.FillColor = Color.Green
            GunaGoogleSwitch9.CheckedOnColor = Color.Green
            GunaGoogleSwitch10.FillColor = Color.Green
            GunaGoogleSwitch10.CheckedOnColor = Color.Green
            GunaGoogleSwitch11.FillColor = Color.Green
            GunaGoogleSwitch11.CheckedOnColor = Color.Green
            GunaGoogleSwitch12.FillColor = Color.Green
            GunaGoogleSwitch12.CheckedOnColor = Color.Green
            GunaGoogleSwitch13.FillColor = Color.Green
            GunaGoogleSwitch13.CheckedOnColor = Color.Green
            GunaGoogleSwitch14.FillColor = Color.Green
            GunaGoogleSwitch14.CheckedOnColor = Color.Green
            ChromeTabcontrol1.SquareColor = Color.Green
            ChromeTabcontrol2.SquareColor = Color.Green
            ChromeTabcontrol3.SquareColor = Color.Green
            ChromeTabcontrol4.SquareColor = Color.Green
            ChromeTabcontrol5.SquareColor = Color.Green
            ChromeTabcontrol6.SquareColor = Color.Green
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert_sel
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines429(0) = 2 Then
            GunaGoogleSwitch1.CheckedOnColor = Color.Blue
            GunaGoogleSwitch1.FillColor = Color.Blue
            GunaGoogleSwitch2.FillColor = Color.Blue
            GunaGoogleSwitch2.CheckedOnColor = Color.Blue
            GunaGoogleSwitch3.FillColor = Color.Blue
            GunaGoogleSwitch3.CheckedOnColor = Color.Blue
            GunaGoogleSwitch4.FillColor = Color.Blue
            GunaGoogleSwitch4.CheckedOnColor = Color.Blue
            GunaGoogleSwitch5.FillColor = Color.Blue
            GunaGoogleSwitch5.CheckedOnColor = Color.Blue
            GunaGoogleSwitch6.FillColor = Color.Blue
            GunaGoogleSwitch6.CheckedOnColor = Color.Blue
            GunaGoogleSwitch7.FillColor = Color.Blue
            GunaGoogleSwitch7.CheckedOnColor = Color.Blue
            GunaGoogleSwitch8.FillColor = Color.Blue
            GunaGoogleSwitch8.CheckedOnColor = Color.Blue
            GunaGoogleSwitch9.FillColor = Color.Blue
            GunaGoogleSwitch9.CheckedOnColor = Color.Blue
            GunaGoogleSwitch10.FillColor = Color.Blue
            GunaGoogleSwitch10.CheckedOnColor = Color.Blue
            GunaGoogleSwitch11.FillColor = Color.Blue
            GunaGoogleSwitch11.CheckedOnColor = Color.Blue
            GunaGoogleSwitch12.FillColor = Color.Blue
            GunaGoogleSwitch12.CheckedOnColor = Color.Blue
            GunaGoogleSwitch13.FillColor = Color.Blue
            GunaGoogleSwitch13.CheckedOnColor = Color.Blue
            GunaGoogleSwitch14.FillColor = Color.Blue
            GunaGoogleSwitch14.CheckedOnColor = Color.Blue
            ChromeTabcontrol1.SquareColor = Color.Blue
            ChromeTabcontrol2.SquareColor = Color.Blue
            ChromeTabcontrol3.SquareColor = Color.Blue
            ChromeTabcontrol4.SquareColor = Color.Green
            ChromeTabcontrol5.SquareColor = Color.Green
            ChromeTabcontrol6.SquareColor = Color.Green
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu_sel
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines429(0) = 3 Then
            GunaGoogleSwitch1.CheckedOnColor = Color.Red
            GunaGoogleSwitch1.FillColor = Color.Red
            GunaGoogleSwitch2.FillColor = Color.Red
            GunaGoogleSwitch2.CheckedOnColor = Color.Red
            GunaGoogleSwitch3.FillColor = Color.Red
            GunaGoogleSwitch3.CheckedOnColor = Color.Red
            GunaGoogleSwitch4.FillColor = Color.Red
            GunaGoogleSwitch4.CheckedOnColor = Color.Red
            GunaGoogleSwitch5.FillColor = Color.Red
            GunaGoogleSwitch5.CheckedOnColor = Color.Red
            GunaGoogleSwitch6.FillColor = Color.Red
            GunaGoogleSwitch6.CheckedOnColor = Color.Red
            GunaGoogleSwitch7.FillColor = Color.Red
            GunaGoogleSwitch7.CheckedOnColor = Color.Red
            GunaGoogleSwitch8.FillColor = Color.Red
            GunaGoogleSwitch8.CheckedOnColor = Color.Red
            GunaGoogleSwitch9.FillColor = Color.Red
            GunaGoogleSwitch9.CheckedOnColor = Color.Red
            GunaGoogleSwitch10.FillColor = Color.Red
            GunaGoogleSwitch10.CheckedOnColor = Color.Red
            GunaGoogleSwitch11.FillColor = Color.Red
            GunaGoogleSwitch11.CheckedOnColor = Color.Red
            GunaGoogleSwitch12.FillColor = Color.Red
            GunaGoogleSwitch12.CheckedOnColor = Color.Red
            GunaGoogleSwitch13.FillColor = Color.Red
            GunaGoogleSwitch13.CheckedOnColor = Color.Red
            GunaGoogleSwitch14.FillColor = Color.Red
            GunaGoogleSwitch14.CheckedOnColor = Color.Red
            ChromeTabcontrol1.SquareColor = Color.Red
            ChromeTabcontrol2.SquareColor = Color.Red
            ChromeTabcontrol3.SquareColor = Color.Red
            ChromeTabcontrol4.SquareColor = Color.Green
            ChromeTabcontrol5.SquareColor = Color.Green
            ChromeTabcontrol6.SquareColor = Color.Green
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge_sel
        End If

        Dim lines1() As String = File.ReadAllLines(comtpeco2)
        If lines1(0) = 1 Then
            closea = 1
        Else
            closea = 0
        End If

        If closea = 1 Then
            Try
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                If vri = 1 Then

                Else
                    PictureBox2.Image.Dispose()
                    File.Delete(compte & "photo.png")
                    closea = 0
                End If
            Catch ex As Exception
                closea = 0
            End Try

        ElseIf closea = 2 Then
            e.Cancel = True
            closea = 0
            Exit Sub
        Else
            passeincor = 0
            LinkLabel1.Hide()
            LinkLabel2.Hide()
            LinkLabel3.Hide()
            GunaCirclePictureBox1.Image.Dispose()
            For Each fichier As String In IO.Directory.GetDirectories(dostheme)
                Dim info As New IO.FileInfo(fichier)
                ComboBox3.Items.Remove(info.Name)
            Next
        End If
        For Each fichier As String In IO.Directory.GetDirectories(dostheme)
            Dim info As New IO.FileInfo(fichier)
            ComboBox3.Items.Remove(info.Name)
        Next
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dim t7 = TextBox1.Text
        Dim t8 = radio
        Dim t9 = t8 & t7
        Dim t10 = t9 & "\flux.txt"

        If TextBox1.Text = "" Then
            MsgBox("Merci d’entrer un nom pour a radio", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
        If TextBox1.Text.Contains("/") Or TextBox1.Text.Contains("\") Or TextBox1.Text.Contains(":") Or TextBox1.Text.Contains("*") Or TextBox1.Text.Contains("?") Or TextBox1.Text.Contains("""") Or TextBox1.Text.Contains("<") Or TextBox1.Text.Contains(">") Then
            MsgBox("les caratère /\ : * <> """" et ? sont interdit", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If TextBox1.Text = "RFM" Or TextBox1.Text = "RMC" Or TextBox1.Text = "Chérie" Or TextBox1.Text = "Nostalgie France" Or TextBox1.Text = "NRJ France" Or TextBox1.Text = "Rire & Chansons" Or TextBox1.Text = "France Info" Or TextBox1.Text = "Fun Radio France" Or TextBox1.Text = "RTL" Or TextBox1.Text = "Ouï FM" Then
            MsgBox("La radio: " & t7 & " existes déjà", MsgBoxStyle.Exclamation)
            Exit Sub
        End If

        If TextBox2.Text = "" Then
            MsgBox("Merci d’entrer une URL ou un flux", MsgBoxStyle.Exclamation)
            Exit Sub
        Else
            If Directory.Exists(t9) = True Then
                MsgBox("La radio: " & t7 & " existes déjà", MsgBoxStyle.Exclamation)
            Else
                Directory.CreateDirectory(t9)
                Dim sw13 As New StreamWriter(t10)
                sw13.WriteLine(TextBox2.Text)
                sw13.Close()
                PictureBox12.Image.Save(t9 & "/photo.png")
                TextBox1.Clear()
                TextBox2.Clear()
                AxWindowsMediaPlayer1.Ctlcontrols.stop()
                Label7.Text = "00:00"
                Label6.Text = "00:00"
                Label6.Hide()
                Label7.Hide()
                PictureBox12.Image = My.Resources.radioimg
                MsgBox("La radio: " & t7 & " a bien été ajouter", MsgBoxStyle.Information)
                For Each fichier As String In IO.Directory.GetDirectories(radio)
                    Dim info As New IO.FileInfo(fichier)
                    Form1.ComboBox1.Items.Remove(info.Name)
                    Form8.ComboBox1.Items.Remove(info.Name)
                    ComboBox6.Items.Clear()
                    ComboBox5.Items.Clear()
                Next
                For Each fichier As String In IO.Directory.GetDirectories(radio)
                    Dim info As New IO.FileInfo(fichier)
                    Form1.ComboBox1.Items.Add(info.Name)
                    Form8.ComboBox1.Items.Add(info.Name)
                    ComboBox6.Items.Add(info.Name)
                    ComboBox5.Items.Add(info.Name)
                Next
            End If
        End If
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Try
            If My.Computer.Network.Ping("www.Google.com") Then
                inernet()
            End If
        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion")
        End Try
    End Sub

    Private Sub AxWindowsMediaPlayer1_MediaError(sender As Object, e As _WMPOCXEvents_MediaErrorEvent) Handles AxWindowsMediaPlayer1.MediaError
        MsgBox("L’URL / le flux n'est pas valide ou expirés", MsgBoxStyle.Information)
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Label6.Hide()
        Label7.Hide()
        Button8.Text = "Tester la radio"
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label7.Text = AxWindowsMediaPlayer1.status
        Label6.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
    End Sub
    Private Sub ComboBox6_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox6.SelectedValueChanged
        Label10.Show()
        Label11.Show()
        Button9.Show()
        Button10.Show()
        Button23.Show()
        PictureBox11.Show()
        Dim t1 = radio
        Dim t2 = ComboBox6.SelectedItem
        Dim t3 = t1 & t2 & "\flux.txt"
        Dim lines1() As String = File.ReadAllLines(t3)
        Label10.Text = "Nom: " & ComboBox6.SelectedItem
        Label11.Text = "URL / Flux: " & lines1(0)
        If File.Exists(t1 & t2 & "/photo.png") = True Then
            PictureBox11.Image = Image.FromFile(t1 & t2 & "/photo.png")
        End If
    End Sub

    Private Sub Label11_Click(sender As Object, e As EventArgs) Handles Label11.Click
        Dim t1 = radio
        Dim t2 = ComboBox6.SelectedItem
        Dim t3 = t1 & t2 & "\flux.txt"
        Dim lines1() As String = File.ReadAllLines(t3)
        MsgBox(lines1(0))
    End Sub

    Private Sub Label10_Click(sender As Object, e As EventArgs) Handles Label10.Click
        MsgBox(ComboBox6.SelectedItem)
    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        renomer_la_radio.ShowDialog()
    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
        Form85.ShowDialog()
    End Sub
    Private Sub ComboBox5_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox5.SelectedValueChanged
        Button1.Show()
    End Sub

    Private Sub Button1_Click_(sender As Object, e As EventArgs) Handles Button1.Click
        Label10.Hide()
        Label11.Hide()
        Button9.Hide()
        Button10.Hide()
        Dim t1 = radio
        Dim t2 = ComboBox5.SelectedItem
        Dim t4 = t1 & t2
        Dim t3 = t1 & t2 & "\flux.txt"
        File.Delete(t3)
        File.Delete(t4 & "/photo.png")
        Directory.Delete(t4)
        Form1.ComboBox1.Items.Remove(ComboBox5.SelectedItem)
        Form8.ComboBox1.Items.Remove(ComboBox5.SelectedItem)
        ComboBox6.Items.Remove(ComboBox5.SelectedItem)
        ComboBox5.Items.Remove(ComboBox5.SelectedItem)
        If ComboBox5.Items.Count = 0 Then
            Button1.Hide()
        End If
        MsgBox("La radio: " & t2 & " a été supprimer", MsgBoxStyle.Information)
    End Sub
    Sub inernet()
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsUndefined Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then
            If TextBox2.Text = "" Then
                MsgBox("Merci enter une URL ou un flux", MsgBoxStyle.Exclamation)
            Else
                Try
                    AxWindowsMediaPlayer1.URL = TextBox2.Text
                    Button8.Text = "Arrêter le test de la radio"
                    Timer1.Start()
                    Label6.Show()
                    Label7.Show()
                Catch ex As Exception
                    MsgBox("Merci entrer une URL ou un flux valide", MsgBoxStyle.Exclamation)
                End Try
            End If
        Else
            Button8.Text = "Tester la radio"
            AxWindowsMediaPlayer1.Ctlcontrols.stop()
            Timer1.Stop()
            Label6.Hide()
            Label7.Hide()
        End If
    End Sub

    Private Sub ListBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedValueChanged
        Button5.Enabled = True
        ListBox1.ContextMenuStrip.Enabled = True
    End Sub

    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.CheckedChanged
        If CheckBox15.Checked = True Then
            ComboBox7.Enabled = True
        Else
            ComboBox7.Enabled = False
        End If
    End Sub

    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.CheckedChanged
        If CheckBox19.Checked = True Then
            ComboBox8.Enabled = True
        Else
            ComboBox8.Enabled = False
        End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        If ComboBox9.SelectedItem = "" Then
            MsgBox("Merci de sélectionner un marqueur", MsgBoxStyle.Information)
            Exit Sub
        Else
            Dim t1 = ComboBox9.SelectedItem
            Dim t2 = marqueur
            File.Delete(t2 & t1 & ".txt")
            MsgBox("Le marqueur: " & ComboBox9.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)
            ComboBox9.Items.Remove(ComboBox9.SelectedItem)
            If ComboBox9.Items.Count = 0 Then
                Button2.Hide()
                Button24.Hide()
            End If
        End If
    End Sub

    Private Sub ChromeButton1_Click(sender As Object, e As EventArgs) Handles ChromeButton1.Click
        Form97.ShowDialog()
    End Sub

    Private Sub Button6_Click_1(sender As Object, e As EventArgs) Handles Button6.Click
        If TextBox4.Text = "" Then
            MsgBox("Merci entrer un nom utilisateur", MsgBoxStyle.Critical)
        Else
            Try
                Directory.CreateDirectory(compte & TextBox4.Text)
                If TextBox5.Text = "" Then
                    Directory.Delete(compte & TextBox4.Text)
                    MsgBox("Merci entrer un mot de passe", MsgBoxStyle.Critical)
                    Exit Sub
                Else
                    Directory.Delete(compte & TextBox4.Text)
                    If TextBox12.Text = "" Then
                        MsgBox("Merci de confirmer votre mot de passe", MsgBoxStyle.Critical)
                        Exit Sub
                    Else
                        If TextBox12.Text <> TextBox5.Text Then
                            MsgBox("Les mots de correspondent pas", MsgBoxStyle.Critical)
                            Exit Sub
                        Else
                            If TextBox6.Text = "" Then
                                MsgBox("Merci entrer une adresse mail", MsgBoxStyle.Critical)
                                Exit Sub
                            Else
                                If CheckBox24.Checked = False Then
                                    MsgBox("Vous devez accepter les conditions d'utilisation pour créer le compte", MsgBoxStyle.Information)
                                    Exit Sub
                                Else
                                    If TextBox6.Text.Contains("@") Then
                                        MsgBox("Merci entrer le début de l'adresse mail", MsgBoxStyle.Exclamation)
                                        Exit Sub
                                    Else
                                        Try
                                            Dim fwr As FtpWebRequest
                                            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
                                            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
                                            fwr.Method = WebRequestMethods.Ftp.ListDirectory
                                            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                                            Dim str As String = sr.ReadLine()
                                            While Not str Is Nothing

                                                Directory.CreateDirectory(cozip & str)


                                                str = sr.ReadLine()

                                            End While

                                            sr.Close()

                                            If Directory.Exists(cozip & TextBox4.Text) = True Then
                                                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                                                    Dim info As New IO.FileInfo(fichier)
                                                    Directory.Delete(cozip & info.Name)
                                                Next
                                                MsgBox("Le nom: " & TextBox4.Text & " est déjà utiliser", MsgBoxStyle.Critical)
                                            Else
                                                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                                                    Dim info As New IO.FileInfo(fichier)
                                                    Directory.Delete(cozip & info.Name)
                                                Next
                                                ftp()
                                            End If

                                        Catch ex As Exception
                                            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                                                Dim info As New IO.FileInfo(fichier)
                                                Directory.Delete(cozip & info.Name)
                                            Next
                                            Timer9.Start()
                                        End Try
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            Catch ex As Exception
                MsgBox("les caratère /\ : * <> """" et ? sont interdit", MsgBoxStyle.Exclamation)
            End Try
        End If
    End Sub
    Sub ftp()
        'création de dosier du compte'
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp7()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub

    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
        If File.Exists(compte & "temp.txt") = True Then
            Dim lines1() As String = File.ReadAllLines(compte & "temp.txt")
            MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter: " & lines1(0) & " minute", MsgBoxStyle.Critical)
        Else
            If passeincor = 2 Then
                LinkLabel3.Show()
                LinkLabel2.Show()
                co1()
            ElseIf passeincor = 4 Then
                Dim sw1 As New StreamWriter(compte & "temp.txt")
                sw1.WriteLine(15)
                sw1.Close()
                Form1.Timer17.Start()
                MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter 15 minutes", MsgBoxStyle.Critical)
            Else
                co1()
            End If
        End If
    End Sub
    Sub ftp2()
        'cryter le donné'
        Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox5.Text)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
        Dim passecrypt = Convert.ToBase64String(Resultatbytes)

        Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(TextBox6.Text & ComboBox10.Text)
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto2 As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes2() As Byte = Icrypto.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
        Dim mailcrypte = Convert.ToBase64String(Resultatbytes2)

        'création des fichier'

        'fichier mots de passe'
        Dim t1 = cozip & "pass.txt"
        Dim sw1 As New StreamWriter(t1)
        sw1.WriteLine(passecrypt)
        sw1.Close()
        'fichier mail'
        Dim t2 = cozip & "mail.txt"
        Dim sw7 As New StreamWriter(t2)
        sw7.WriteLine(mailcrypte)
        sw7.Close()
        'fichier settings'
        Dim t4 = cozip & "setting.txt"
        Dim sw4 As New StreamWriter(t4)
        sw4.WriteLine(0)
        sw4.WriteLine(0)
        sw4.Close()
        'fichier vérification'
        Dim t6 = cozip & "vérification.txt"
        Dim sw6 As New StreamWriter(t6)
        sw6.WriteLine(0)
        sw6.Close()
        'fichier index'
        Dim t5 = compte & "index.php"
        Dim sw5 As New StreamWriter(t5)
        sw5.WriteLine("<?php")
        sw5.WriteLine("echo ""Erreur 404 page non trouvez"";")
        sw5.WriteLine("?>")
        sw5.Close()
        'fichier photo'
        PictureBox1.Image.Save(compte & "photo.png")
        Dim t3 = compte & "photo.png"
        passup()
    End Sub
    Sub ftp3()
        'création dosier drive'
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "Dirve"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp2()
        Catch ex As Exception
            Timer25.Start()
        End Try
    End Sub

    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
        Label17.Hide()
        Label18.Hide()
        TextBox7.Hide()
        TextBox8.Hide()
        Button12.Hide()
        Button11.Hide()
        LinkLabel2.Hide()
        LinkLabel3.Hide()
        PictureBox4.Show()
        PictureBox3.Hide()
        Panel1.Show()
        Panel2.Show()
    End Sub
    Sub mail()
        Dim t1 = cozip & "mail.txt"
        Dim t2 = cozip & "pass.txt"
        Dim lines() As String = File.ReadAllLines(t1)
        Dim lines2() As String = File.ReadAllLines(t2)

        Dim Resultatbytes() As Byte = Convert.FromBase64String(lines(0))
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
        Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
        Dim maildecrypt = Encoding.UTF8.GetString(donné)


        Dim Resultatbytes2() As Byte = Convert.FromBase64String(lines2(0))
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto2.Key = keyBytes2
        Crypto2.IV = keyBytes2
        Dim Icrypto2 As ICryptoTransform = Crypto2.CreateDecryptor()
        Dim donné2() As Byte = Icrypto2.TransformFinalBlock(Resultatbytes2, 0, Resultatbytes2.Length)
        Dim passdecrypt = Encoding.UTF8.GetString(donné2)

        Try

            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
            Dim mail = maildecrypt
            Dim message = "Votre mot de passe de compte lecteur média est: " & passdecrypt & vbNewLine & vbNewLine & "si lecteur vous dis mot de passe incorrect avec le mot de passe de ce mail," & vbNewLine & "merci de redémarrer le lecteur"
            MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("Mot de passe lecteur média")
            MyMailMessage.Body = (message)
            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage) 'Envoi

            MsgBox("Un message avec votre mot de passe a été envoyé à l'adresse mail", MsgBoxStyle.Information)
            suprezip()
        Catch ex As Exception
            mail()
        End Try
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
        PictureBox2.Image.Dispose()
        File.Delete(compte & "photo.png")
        Panel2.Hide()
        Panel1.Hide()
        Form1.DriveToolStripMenuItem.Visible = False
        Label17.Show()
        Label18.Show()
        TextBox7.Show()
        TextBox8.Show()
        Button12.Show()
        Button11.Show()
        Me.Enabled = False
        Form1.deco789()
    End Sub

    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim t4 As String
        Dim msg = MsgBox("Voulez-vous vraiment supprimer le compte: " & Label21.Text & " ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            supprimer()
        Else
            MsgBox("Le compte: " & Label21.Text & "n'a pas été supprimer", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
        If Button16.Text = "Afficher" Then
            TextBox5.UseSystemPasswordChar = False
            Button16.Text = "Cacher"
        Else
            TextBox5.UseSystemPasswordChar = True
            Button16.Text = "Afficher"
        End If
    End Sub

    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
        If Button15.Text = "Afficher" Then
            TextBox12.UseSystemPasswordChar = False
            Button15.Text = "Cacher"
        Else
            TextBox12.UseSystemPasswordChar = True
            Button15.Text = "Afficher"
        End If
    End Sub

    Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles TextBox5.TextChanged
        TextBox5.UseSystemPasswordChar = True
        Button16.Text = "Afficher"
    End Sub

    Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles TextBox12.TextChanged
        TextBox12.UseSystemPasswordChar = True
        Button15.Text = "Afficher"
    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        condition_d_utilisation.ShowDialog()
    End Sub

    Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
        If OpenFileDialog1.ShowDialog = 1 Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
        End If
    End Sub

    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
        Photo.ShowDialog()
    End Sub

    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
        If OpenFileDialog1.ShowDialog = 1 Then
            photo1()
        End If
    End Sub
    Sub photo1()
        PictureBox2.Image.Dispose()
        File.Delete(compte & "photo.png")
        PictureBox2.Image = Image.FromFile(OpenFileDialog1.FileName)
        PictureBox2.Refresh()
        PictureBox2.Image.Save(compte & "photo.png")
        Try
            My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/utilisateur/" & Label21.Text & "/photo.png")
            MsgBox("Vôtre photo de profile a bien été modifier", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub

    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
        passe.ShowDialog()
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        Label17.Show()
        Label18.Show()
        TextBox7.Show()
        TextBox8.Show()
        Button12.Show()
        Button11.Show()
        Panel1.Show()
        Panel2.Hide()
        PictureBox4.Hide()
    End Sub
    Sub finiload()
        Button5.Enabled = False
        ComboBox7.Enabled = False
        ComboBox8.Enabled = False
        ListBox1.ContextMenuStrip.Enabled = False
        Button1.Hide()
        Label10.Hide()
        Label11.Hide()
        Button9.Hide()
        Button10.Hide()

        Dim lines102() As String = File.ReadAllLines(couleur)
        If lines102(0) = 0 Then
            couleurtemps = 0
            GunaGoogleSwitch16.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch17.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch18.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch19.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch16.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch17.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch18.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch19.FillColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar1.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar2.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar3.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar4.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar5.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar6.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar7.ProgressColor = Color.FromArgb(255, 128, 0)
            CircularProgressBar8.ProgressColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
            ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch15.CheckedOnColor = Color.FromArgb(255, 128, 0)
            GunaGoogleSwitch15.FillColor = Color.FromArgb(255, 128, 0)
            PictureBox7.Image = My.Resources.orange_sel
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines102(0) = 1 Then
            couleurtemps = 1
            GunaGoogleSwitch16.CheckedOnColor = Color.Green
            GunaGoogleSwitch17.CheckedOnColor = Color.Green
            GunaGoogleSwitch18.CheckedOnColor = Color.Green
            GunaGoogleSwitch19.CheckedOnColor = Color.Green
            GunaGoogleSwitch16.FillColor = Color.Green
            GunaGoogleSwitch17.FillColor = Color.Green
            GunaGoogleSwitch18.FillColor = Color.Green
            GunaGoogleSwitch19.FillColor = Color.Green
            CircularProgressBar1.ProgressColor = Color.Green
            CircularProgressBar2.ProgressColor = Color.Green
            CircularProgressBar3.ProgressColor = Color.Green
            CircularProgressBar4.ProgressColor = Color.Green
            CircularProgressBar5.ProgressColor = Color.Green
            CircularProgressBar6.ProgressColor = Color.Green
            CircularProgressBar7.ProgressColor = Color.Green
            CircularProgressBar8.ProgressColor = Color.Green
            GunaGoogleSwitch1.CheckedOnColor = Color.Green
            GunaGoogleSwitch1.FillColor = Color.Green
            GunaGoogleSwitch2.FillColor = Color.Green
            GunaGoogleSwitch2.CheckedOnColor = Color.Green
            GunaGoogleSwitch3.FillColor = Color.Green
            GunaGoogleSwitch3.CheckedOnColor = Color.Green
            GunaGoogleSwitch4.FillColor = Color.Green
            GunaGoogleSwitch4.CheckedOnColor = Color.Green
            GunaGoogleSwitch5.FillColor = Color.Green
            GunaGoogleSwitch5.CheckedOnColor = Color.Green
            GunaGoogleSwitch6.FillColor = Color.Green
            GunaGoogleSwitch6.CheckedOnColor = Color.Green
            GunaGoogleSwitch7.FillColor = Color.Green
            GunaGoogleSwitch7.CheckedOnColor = Color.Green
            GunaGoogleSwitch8.FillColor = Color.Green
            GunaGoogleSwitch8.CheckedOnColor = Color.Green
            GunaGoogleSwitch9.FillColor = Color.Green
            GunaGoogleSwitch9.CheckedOnColor = Color.Green
            GunaGoogleSwitch10.FillColor = Color.Green
            GunaGoogleSwitch10.CheckedOnColor = Color.Green
            GunaGoogleSwitch11.FillColor = Color.Green
            GunaGoogleSwitch11.CheckedOnColor = Color.Green
            GunaGoogleSwitch12.FillColor = Color.Green
            GunaGoogleSwitch12.CheckedOnColor = Color.Green
            GunaGoogleSwitch13.FillColor = Color.Green
            GunaGoogleSwitch13.CheckedOnColor = Color.Green
            GunaGoogleSwitch14.FillColor = Color.Green
            GunaGoogleSwitch14.CheckedOnColor = Color.Green
            ChromeTabcontrol1.SquareColor = Color.Green
            ChromeTabcontrol2.SquareColor = Color.Green
            ChromeTabcontrol3.SquareColor = Color.Green
            ChromeTabcontrol4.SquareColor = Color.Green
            ChromeTabcontrol5.SquareColor = Color.Green
            ChromeTabcontrol6.SquareColor = Color.Green
            GunaGoogleSwitch15.CheckedOnColor = Color.Green
            GunaGoogleSwitch15.FillColor = Color.Green
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert_sel
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines102(0) = 2 Then
            couleurtemps = 2
            GunaGoogleSwitch16.CheckedOnColor = Color.Blue
            GunaGoogleSwitch17.CheckedOnColor = Color.Blue
            GunaGoogleSwitch18.CheckedOnColor = Color.Blue
            GunaGoogleSwitch19.CheckedOnColor = Color.Blue
            GunaGoogleSwitch16.FillColor = Color.Blue
            GunaGoogleSwitch17.FillColor = Color.Blue
            GunaGoogleSwitch18.FillColor = Color.Blue
            GunaGoogleSwitch19.FillColor = Color.Blue
            CircularProgressBar1.ProgressColor = Color.Blue
            CircularProgressBar2.ProgressColor = Color.Blue
            CircularProgressBar3.ProgressColor = Color.Blue
            CircularProgressBar4.ProgressColor = Color.Blue
            CircularProgressBar5.ProgressColor = Color.Blue
            CircularProgressBar6.ProgressColor = Color.Blue
            CircularProgressBar7.ProgressColor = Color.Blue
            CircularProgressBar8.ProgressColor = Color.Blue
            GunaGoogleSwitch1.CheckedOnColor = Color.Blue
            GunaGoogleSwitch1.FillColor = Color.Blue
            GunaGoogleSwitch2.FillColor = Color.Blue
            GunaGoogleSwitch2.CheckedOnColor = Color.Blue
            GunaGoogleSwitch3.FillColor = Color.Blue
            GunaGoogleSwitch3.CheckedOnColor = Color.Blue
            GunaGoogleSwitch4.FillColor = Color.Blue
            GunaGoogleSwitch4.CheckedOnColor = Color.Blue
            GunaGoogleSwitch5.FillColor = Color.Blue
            GunaGoogleSwitch5.CheckedOnColor = Color.Blue
            GunaGoogleSwitch6.FillColor = Color.Blue
            GunaGoogleSwitch6.CheckedOnColor = Color.Blue
            GunaGoogleSwitch7.FillColor = Color.Blue
            GunaGoogleSwitch7.CheckedOnColor = Color.Blue
            GunaGoogleSwitch8.FillColor = Color.Blue
            GunaGoogleSwitch8.CheckedOnColor = Color.Blue
            GunaGoogleSwitch9.FillColor = Color.Blue
            GunaGoogleSwitch9.CheckedOnColor = Color.Blue
            GunaGoogleSwitch10.FillColor = Color.Blue
            GunaGoogleSwitch10.CheckedOnColor = Color.Blue
            GunaGoogleSwitch11.FillColor = Color.Blue
            GunaGoogleSwitch11.CheckedOnColor = Color.Blue
            GunaGoogleSwitch12.FillColor = Color.Blue
            GunaGoogleSwitch12.CheckedOnColor = Color.Blue
            GunaGoogleSwitch13.FillColor = Color.Blue
            GunaGoogleSwitch13.CheckedOnColor = Color.Blue
            GunaGoogleSwitch14.FillColor = Color.Blue
            GunaGoogleSwitch14.CheckedOnColor = Color.Blue
            GunaGoogleSwitch15.FillColor = Color.Blue
            GunaGoogleSwitch15.CheckedOnColor = Color.Blue
            ChromeTabcontrol1.SquareColor = Color.Blue
            ChromeTabcontrol2.SquareColor = Color.Blue
            ChromeTabcontrol3.SquareColor = Color.Blue
            ChromeTabcontrol4.SquareColor = Color.Blue
            ChromeTabcontrol5.SquareColor = Color.Blue
            ChromeTabcontrol6.SquareColor = Color.Blue
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu_sel
            PictureBox10.Image = My.Resources.rouge
        ElseIf lines102(0) = 3 Then
            couleurtemps = 3
            GunaGoogleSwitch16.CheckedOnColor = Color.Red
            GunaGoogleSwitch17.CheckedOnColor = Color.Red
            GunaGoogleSwitch18.CheckedOnColor = Color.Red
            GunaGoogleSwitch19.CheckedOnColor = Color.Red
            GunaGoogleSwitch16.FillColor = Color.Red
            GunaGoogleSwitch17.FillColor = Color.Red
            GunaGoogleSwitch18.FillColor = Color.Red
            GunaGoogleSwitch19.FillColor = Color.Red
            CircularProgressBar1.ProgressColor = Color.Red
            CircularProgressBar2.ProgressColor = Color.Red
            CircularProgressBar3.ProgressColor = Color.Red
            CircularProgressBar4.ProgressColor = Color.Red
            CircularProgressBar5.ProgressColor = Color.Red
            CircularProgressBar6.ProgressColor = Color.Red
            CircularProgressBar7.ProgressColor = Color.Red
            CircularProgressBar8.ProgressColor = Color.Red
            GunaGoogleSwitch1.CheckedOnColor = Color.Red
            GunaGoogleSwitch1.FillColor = Color.Red
            GunaGoogleSwitch2.FillColor = Color.Red
            GunaGoogleSwitch2.CheckedOnColor = Color.Red
            GunaGoogleSwitch3.FillColor = Color.Red
            GunaGoogleSwitch3.CheckedOnColor = Color.Red
            GunaGoogleSwitch4.FillColor = Color.Red
            GunaGoogleSwitch4.CheckedOnColor = Color.Red
            GunaGoogleSwitch5.FillColor = Color.Red
            GunaGoogleSwitch5.CheckedOnColor = Color.Red
            GunaGoogleSwitch6.FillColor = Color.Red
            GunaGoogleSwitch6.CheckedOnColor = Color.Red
            GunaGoogleSwitch7.FillColor = Color.Red
            GunaGoogleSwitch7.CheckedOnColor = Color.Red
            GunaGoogleSwitch8.FillColor = Color.Red
            GunaGoogleSwitch8.CheckedOnColor = Color.Red
            GunaGoogleSwitch9.FillColor = Color.Red
            GunaGoogleSwitch9.CheckedOnColor = Color.Red
            GunaGoogleSwitch10.FillColor = Color.Red
            GunaGoogleSwitch10.CheckedOnColor = Color.Red
            GunaGoogleSwitch11.FillColor = Color.Red
            GunaGoogleSwitch11.CheckedOnColor = Color.Red
            GunaGoogleSwitch12.FillColor = Color.Red
            GunaGoogleSwitch12.CheckedOnColor = Color.Red
            GunaGoogleSwitch13.FillColor = Color.Red
            GunaGoogleSwitch13.CheckedOnColor = Color.Red
            GunaGoogleSwitch14.FillColor = Color.Red
            GunaGoogleSwitch14.CheckedOnColor = Color.Red
            GunaGoogleSwitch15.FillColor = Color.Red
            GunaGoogleSwitch15.CheckedOnColor = Color.Red
            ChromeTabcontrol1.SquareColor = Color.Red
            ChromeTabcontrol2.SquareColor = Color.Red
            ChromeTabcontrol3.SquareColor = Color.Red
            ChromeTabcontrol4.SquareColor = Color.Red
            ChromeTabcontrol5.SquareColor = Color.Red
            ChromeTabcontrol6.SquareColor = Color.Red
            PictureBox7.Image = My.Resources.orange
            PictureBox8.Image = My.Resources.vert
            PictureBox9.Image = My.Resources.bleu
            PictureBox10.Image = My.Resources.rouge_sel
        End If

        Dim lines101() As String = File.ReadAllLines(marqueurtemp)
        If lines101(0) = 3 Then
            ComboBox18.SelectedItem = "3 marqueur"
            marqueurtempsa = 3
        ElseIf lines101(0) = 5 Then
            ComboBox18.SelectedItem = "5 marqueur"
            marqueurtempsa = 5
        ElseIf lines101(0) = 10 Then
            ComboBox18.SelectedItem = "10 marqueur"
            marqueurtempsa = 10
        ElseIf lines101(0) = 15 Then
            ComboBox18.SelectedItem = "15 marqueur"
            marqueurtempsa = 15
        ElseIf lines101(0) = 20 Then
            ComboBox18.SelectedItem = "20 marqueur"
            marqueurtempsa = 20
        ElseIf lines101(0) = 25 Then
            ComboBox18.SelectedItem = "25 marqueur"
            marqueurtempsa = 25
        ElseIf lines101(0) = 30 Then
            ComboBox18.SelectedItem = "30 marqueur"
            marqueurtempsa = 30
        ElseIf lines101(0) = 35 Then
            ComboBox18.SelectedItem = "35 marqueur"
            marqueurtempsa = 35
        ElseIf lines101(0) = 40 Then
            ComboBox18.SelectedItem = "40 marqueur"
            marqueurtempsa = 40
        ElseIf lines101(0) = 45 Then
            ComboBox18.SelectedItem = "45 marqueur"
            marqueurtempsa = 45
        ElseIf lines101(0) = 50 Then
            ComboBox18.SelectedItem = "50 marqueur"
            marqueurtempsa = 50
        ElseIf lines101(0) = 55 Then
            ComboBox18.SelectedItem = "55 marqueur"
            marqueurtempsa = 55
        ElseIf lines101(0) = 60 Then
            ComboBox18.SelectedItem = "60 marqueur"
            marqueurtempsa = 60
        End If

        Dim lines100() As String = File.ReadAllLines(imgmusique)
        If lines100(0) = 1 Then
            ComboBox15.Items.Add(lines100(1))
            ComboBox15.SelectedItem = lines100(1)
            PictureBox13.Image = Image.FromFile(lines100(2))
            PictureBox13.Show()
        Else
            ComboBox15.SelectedItem = "Part default"
        End If

        Dim lines1002() As String = File.ReadAllLines(ettt)
        If lines1002(0) = 1 Then
            ComboBox16.Items.Add(lines1002(1))
            ComboBox16.SelectedItem = lines1002(1)
            OpenFileDialog3.FileName = lines1002(2)

        Else
            ComboBox16.SelectedItem = "Part default"

        End If

        For Each fichier As String In IO.Directory.GetDirectories(Favoris1)
            Dim info As New IO.FileInfo(fichier)
            ListBox1.Items.Add(info.Name)
        Next

        For Each fichier As String In IO.Directory.GetFiles(marqueur)
            Dim info As New IO.FileInfo(fichier)
            ComboBox9.Items.Add(info.Name.Replace(".txt", ""))
        Next

        If ComboBox9.Items.Count = 0 Then
            Button2.Hide()
        End If


        For Each fichier As String In IO.Directory.GetDirectories(radio)
            Dim info As New IO.FileInfo(fichier)
            ComboBox6.Items.Add(info.Name)
            ComboBox5.Items.Add(info.Name)
        Next
        AxWindowsMediaPlayer1.Hide()
        Label6.Hide()
        Label7.Hide()

        Dim sr As New StreamReader(historique)
        While (sr.Peek >= 0)
            ListBox2.Items.Add(sr.ReadLine)
        End While
        sr.Close()

        Dim lines50() As String = File.ReadAllLines(fichiermisauto)
        If lines50(0) = 1 Then
            GunaGoogleSwitch15.Checked = True
        Else
            GunaGoogleSwitch15.Checked = False
        End If


        If CheckBox1.Checked = False Then
            ComboBox1.Enabled = False
        Else
            ComboBox1.Enabled = True
        End If

        If File.Exists(settings1) Then

            Dim lines() As String = File.ReadAllLines(settings1)

            If lines(0) <> 0 Then
                CheckBox1.Checked = True
                ComboBox1.Text = lines(0)
            End If

            If lines(5) = 0 Then
                GunaGoogleSwitch8.Checked = False
            Else
                GunaGoogleSwitch8.Checked = True
                If lines(6) = 1 Then
                    ComboBox14.SelectedItem = "1 minute"
                ElseIf lines(6) = 3 Then
                    ComboBox14.SelectedItem = "3 minute"
                ElseIf lines(6) = 5 Then
                    ComboBox14.SelectedItem = "5 minute"
                ElseIf lines(6) = 10 Then
                    ComboBox14.SelectedItem = "10 minute"
                ElseIf lines(6) = 15 Then
                    ComboBox14.SelectedItem = "15 minute"
                ElseIf lines(6) = 20 Then
                    ComboBox14.SelectedItem = "20 minute"
                ElseIf lines(6) = 25 Then
                    ComboBox14.SelectedItem = "25 minute"
                ElseIf lines(6) = 30 Then
                    ComboBox14.SelectedItem = "30 minute"
                ElseIf lines(6) = 35 Then
                    ComboBox14.SelectedItem = "35 minute"
                ElseIf lines(6) = 40 Then
                    ComboBox14.SelectedItem = "40 minute"
                ElseIf lines(6) = 45 Then
                    ComboBox14.SelectedItem = "45 minute"
                ElseIf lines(6) = 50 Then
                    ComboBox14.SelectedItem = "50 minute"
                ElseIf lines(6) = 55 Then
                    ComboBox14.SelectedItem = "55 minute"
                ElseIf lines(6) = 60 Then
                    ComboBox14.SelectedItem = "1 heurs "
                End If
            End If

            If lines(1) = 1 Then
                GunaGoogleSwitch4.Checked = True
            End If

            If lines(2) = 1 Then
                GunaGoogleSwitch1.Checked = True
                GunaLabel26.Show()
                GunaGoogleSwitch15.Show()
                GunaLabel27.Show()
            Else
                GunaLabel26.Hide()
                GunaGoogleSwitch15.Hide()
                GunaLabel27.Hide()
            End If


            If lines(3) = 1 Then
                GunaGoogleSwitch2.Checked = True
            End If

            If lines(4) = 1 Then
                GunaGoogleSwitch3.Checked = True
            End If
        End If

        Dim lines2() As String = File.ReadAllLines(notification)
        If File.Exists(notification) Then
            If lines2(0) = 1 Then
                GunaGoogleSwitch5.Checked = True
            End If
        End If

        Dim lines3() As String = File.ReadAllLines(théme)
        If lines3(0) = 1 Then
            ComboBox3.SelectedItem = "Clair"
        ElseIf lines3(0) = 2 Then
            ComboBox3.SelectedItem = "Sombre"
        End If

        Dim lines5() As String = File.ReadAllLines(setting)
        If lines5(0) = 1 Then
            CheckBox13.Checked = True
        Else
            CheckBox13.Checked = False
        End If

        Dim lines51() As String = File.ReadAllLines(settings4)
        If lines51(0) = 0 Then
            ComboBox4.SelectedItem = "Ne rien faire"
        ElseIf lines51(0) = 1 Then
            ComboBox4.SelectedItem = "Effet sonore"
        End If

        Dim lines52() As String = File.ReadAllLines(settings5)
        If lines52(0) = 1 Then
            ComboBox4.SelectedItem = "Fermer la session"
        ElseIf lines52(0) = 2 Then
            ComboBox4.SelectedItem = "Verrouiller la session"
        ElseIf lines52(0) = 3 Then
            ComboBox4.SelectedItem = "Arrêter l'ordinateur"
        ElseIf lines52(0) = 4 Then
            ComboBox4.SelectedItem = "Mettre en veille prolonger"
        End If

        Dim lines7() As String = File.ReadAllLines(settings2)

        If lines7(0) <> 0 Then
            CheckBox15.Checked = True
            ComboBox7.Text = lines7(0)
        Else
            CheckBox15.Checked = False
        End If

        If lines7(1) = 1 Then
            GunaGoogleSwitch9.Checked = True
        End If

        If lines7(2) = 1 Then
            GunaGoogleSwitch10.Checked = True
        End If

        Dim lines8() As String = File.ReadAllLines(musiquepar)

        If lines8(0) = 1 Then
            GunaGoogleSwitch11.Checked = True
        End If

        Dim lines9() As String = File.ReadAllLines(settings3)

        If lines9(0) <> 0 Then
            CheckBox19.Checked = True
            ComboBox8.Text = lines9(0)
        Else
            CheckBox19.Checked = False
        End If

        If lines9(1) = 1 Then
            GunaGoogleSwitch12.Checked = True
        End If

        If lines9(2) = 1 Then
            GunaGoogleSwitch13.Checked = True
        End If

        If lines9(3) = 1 Then
            GunaGoogleSwitch14.Checked = True
        End If

        Try
            Dim lines444() As String = File.ReadAllLines(dosprofils & "/" & nomprofils & "/passe.txt")
            Dim lines445() As String = File.ReadAllLines(compte & "passtemps.txt")
            If lines444(0) = lines445(0) Then
                CheckBox27.Checked = True
                Button39.Enabled = False
            Else
                CheckBox27.Checked = False
                If File.Exists(dosprofils & nomprofils & "/passe.txt") = True Then
                    Button38.Text = "Modifier votre mots de passe"
                    Button39.Enabled = True
                    CheckBox27.Enabled = False
                Else

                End If
            End If
        Catch ex As Exception
            CheckBox27.Checked = False
            If File.Exists(dosprofils & nomprofils & "/passe.txt") = True Then
                Button38.Text = "Modifier votre mots de passe"
                Button39.Enabled = True
                CheckBox27.Enabled = False
            Else

            End If
        End Try
    End Sub
    Sub mail2()
        If TextBox7.Text = "" Then
            MsgBox("Merci d'entrer un nom utilisateur", MsgBoxStyle.Critical)
            Exit Sub
        Else
            Try
                Dim fwr As FtpWebRequest
                fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
                fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
                fwr.Method = WebRequestMethods.Ftp.ListDirectory
                Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                Dim str As String = sr.ReadLine()
                While Not str Is Nothing

                    Directory.CreateDirectory(cozip & str)


                    str = sr.ReadLine()

                End While

                sr.Close()

                If Directory.Exists(cozip & TextBox7.Text) = True Then
                    For Each fichier As String In IO.Directory.GetDirectories(cozip)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(cozip & info.Name)
                    Next
                    mail6()
                Else
                    For Each fichier As String In IO.Directory.GetDirectories(cozip)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(cozip & info.Name)
                    Next
                    MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
                End If
            Catch ex As Exception
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                Timer51.Start()
            End Try
        End If
    End Sub

    Private Sub GunaGoogleSwitch1_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch1.CheckedChanged
        If GunaGoogleSwitch1.Checked = True Then
            GunaLabel2.Text = "Activer"
            GunaLabel26.Show()
            GunaGoogleSwitch15.Show()
            GunaLabel27.Show()
        Else
            GunaLabel2.Text = "Désactivée"
            GunaLabel26.Hide()
            GunaGoogleSwitch15.Hide()
            GunaLabel27.Hide()
        End If
    End Sub
    Private Sub GunaGoogleSwitch2_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch2.CheckedChanged
        If GunaGoogleSwitch2.Checked = True Then
            GunaLabel4.Text = "Activer"
        Else
            GunaLabel4.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch3_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch3.CheckedChanged
        If GunaGoogleSwitch3.Checked = True Then
            GunaLabel6.Text = "Activer"
        Else
            GunaLabel6.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch4_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch4.CheckedChanged
        If GunaGoogleSwitch4.Checked = True Then
            GunaLabel7.Text = "Activer"
        Else
            GunaLabel7.Text = "Désactivée"
        End If
    End Sub

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

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        Dim sw As New StreamWriter(date1)
        sw.WriteLine(ComboBox11.SelectedItem)
        sw.WriteLine(ComboBox12.SelectedItem)
        sw.WriteLine(ComboBox13.SelectedItem)
        sw.Close()
        My.Computer.Network.UploadFile(date1, ipserver & "/utilisateur/" & Label21.Text & "/date.txt")
        File.Delete(date1)
        Dim sw1 As New StreamWriter(settingcompte)
        sw1.WriteLine(1)
        sw1.Close()
        MsgBox("votre date de naisence a bien été enregister", MsgBoxStyle.Information)
    End Sub

    Private Sub GunaGoogleSwitch6_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch6.CheckedChanged
        If GunaGoogleSwitch6.Checked = True And chh = 0 Then
            syhistorique()
        ElseIf GunaGoogleSwitch6.Checked = False And chh = 0 Then
            syhistorique2()
        Else
            chh = 0
        End If
    End Sub

    Private Sub GunaGoogleSwitch7_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch7.CheckedChanged
        If GunaGoogleSwitch7.Checked = True And chh2 = 0 Then
            Label32.Text = "Activer"
            Dim sw1 As New StreamWriter(cozip & "vérification.txt")
            sw1.WriteLine(1)
            sw1.Close()
            Try
                My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
                File.Delete(cozip & "vérification.txt")
                MsgBox("La double vérification est activée", MsgBoxStyle.Information)
            Catch ex As Exception
                Timer48.Start()
            End Try
        ElseIf GunaGoogleSwitch7.Checked = False And chh2 = 0 Then
            Label32.Text = "Désactivée"
            Dim sw1 As New StreamWriter(cozip & "vérification.txt")
            sw1.WriteLine(0)
            sw1.Close()
            Try
                My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
                File.Delete(cozip & "vérification.txt")
                MsgBox("La double vérification est désactivée", MsgBoxStyle.Information)
            Catch ex As Exception
                Timer49.Start()
            End Try
        Else
            Label32.Text = "Activer"
        End If
        chh2 = 0
    End Sub
    Sub mail3()
        Try
            If My.Computer.Network.Ping("www.google.com") Then
                mail4()
            End If
        Catch ex As Exception
            TextBox4.Clear()
            TextBox5.Clear()
            TextBox6.Clear()
            TextBox12.Clear()
            Exit Sub
        End Try
    End Sub
    Sub mail4()
        Dim NumRandom As Integer
        Dim Rand As Random = New Random
        Dim NumStr As String
        Dim code As String = ""

        NumRandom = (Rand.Next(1, 999999))
        NumStr = Strings.Right("" & NumRandom.ToString(), 6)
        code = "LM-" & NumStr

        Dim t4 = cozip & "code 1 de récupération " & TextBox4.Text & ".txt"
        Dim sw4 As New StreamWriter(t4)
        sw4.WriteLine(TextBox4.Text & code & "code1")
        sw4.Close()

        Dim NumRandom2 As Integer
        Dim Rand2 As Random = New Random
        Dim NumStr2 As String
        Dim code2 As String = ""

        NumRandom2 = (Rand2.Next(1, 999999))
        NumStr2 = Strings.Right("" & NumRandom2.ToString(), 6)
        code2 = "LM-" & NumStr2

        Dim t5 = cozip & "code 2 de récupération " & TextBox4.Text & ".txt"
        Dim sw5 As New StreamWriter(t5)
        sw5.WriteLine(TextBox4.Text & code2 & "code2")
        sw5.Close()

        Dim NumRandom3 As Integer
        Dim Rand3 As Random = New Random
        Dim NumStr3 As String
        Dim code3 As String = ""

        NumRandom3 = (Rand3.Next(1, 999999))
        NumStr3 = Strings.Right("" & NumRandom3.ToString(), 6)
        code3 = "LM-" & NumStr3

        Dim t6 = cozip & "code 3 de récupération " & TextBox4.Text & ".txt"
        Dim sw6 As New StreamWriter(t6)
        sw6.WriteLine(TextBox4.Text & code3 & "code3")
        sw6.Close()

        Timer7.Start()

    End Sub
    Sub passup()
        'envoie co.zip'
        Try
            For Each fichier As String In IO.Directory.GetFiles(cozip)
                Dim info As New IO.FileInfo(fichier)
                My.Computer.Network.UploadFile(cozip & info.Name, ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & info.Name)
            Next
            photoup()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub
    Sub photoup()
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next

        'envoie photo'
        Try
            My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "photo.png")
            intexup()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub
    Sub intexup()
        'envoie index'
        Try
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "index.php")
            intexup2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub intexup2()
        Try
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/dirve/" & "index.php")
            intexup3()
        Catch ex As Exception
            Timer32.Start()
        End Try
    End Sub
    Sub intexup3()
        Try
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/pc/" & "index.php")
            File.Delete(compte & "index.php")
            File.Delete(compte & "photo.png")
            ft5()
        Catch ex As Exception
            Timer34.Start()
        End Try
    End Sub


    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Try
            For Each fichier As String In IO.Directory.GetFiles(cozip)
                Dim info As New IO.FileInfo(fichier)
                My.Computer.Network.UploadFile(cozip & info.Name, ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & info.Name)
            Next
            photoup()
        Catch ex As Exception
            Timer3.Start()
        End Try
    End Sub

    Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick
        Try
            Timer4.Stop()
            My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "photo.png")
            intexup()
        Catch ex As Exception
            Timer4.Start()
        End Try
    End Sub
    Private Sub Timer8_Tick(sender As Object, e As EventArgs) Handles Timer8.Tick
        Try
            Timer8.Stop()
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "index.php")
            intexup2()
        Catch ex As Exception
            Timer8.Start()
        End Try
    End Sub
    Sub co1()
        If TextBox7.Text = "" Then
            MsgBox("Merci entrer un nom utilisateur", MsgBoxStyle.Critical)
            Exit Sub
        Else
            If TextBox8.Text = "" Then
                MsgBox("Merci entrer un mot de passe", MsgBoxStyle.Critical)
                Exit Sub
            Else
                Timer35.Start()
            End If
        End If
    End Sub
    Sub co2()
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next

        If File.Exists(compte & "/co.zip") = True Then
            File.Delete(compte & "/co.zip")
        End If

        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/pass.txt", cozip & "pass.txt")
            Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox8.Text)
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
            Dim passecrypt = Convert.ToBase64String(Resultatbytes)

            Dim lines1() As String = File.ReadAllLines(cozip & "pass.txt")

            If lines1(0) = passecrypt Then
                co3()
            Else
                File.Delete(cozip & "pass.txt")
                passeincor += 1
                TextBox8.Clear()
                MsgBox("Mot de passe incorrect", MsgBoxStyle.Exclamation)
            End If
        Catch ex As Exception
            Timer44.Start()
        End Try

    End Sub
    Sub co3()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/vérification.txt", cozip & "vérification.txt")
            Dim lines() As String = File.ReadAllLines(cozip & "vérification.txt")
            If lines(0) = 1 Then
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = True
                Label32.Text = "Activer"
                chh2 = 0
                Form141.ShowDialog()
                Exit Sub
            Else
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = False
                Label32.Text = "Désactivée"
                chh2 = 0
                co7()
            End If
        Catch ex As Exception
            Timer45.Start()
        End Try
    End Sub
    Sub co4()
        Me.Cursor = DefaultCursor
        Try
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "photo.png", compte & "photo.png")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                File.Delete(compte & "photo.png")
                Timer13.Start()
                Exit Sub
            Else
                PictureBox2.Image = Image.FromFile(compte & "photo.png")
                Form1.DriveToolStripMenuItem.Visible = True
                co5()
            End If
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub
    Sub co5()
        Dim sw100 As New StreamWriter(compteco)
        sw100.WriteLine(TextBox7.Text)
        sw100.Close()
        Dim sw101 As New StreamWriter(comtpeco2)
        sw101.WriteLine(1)
        sw101.Close()
        Panel2.Show()
        Label21.Text = TextBox7.Text
        TextBox8.Clear()

        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/setting.txt", cozip & "setting.txt")
            Dim lines() As String = File.ReadAllLines(cozip & "setting.txt")
            If lines(0) = 1 Then
                chh = 1
                GunaGoogleSwitch6.Checked = True
                Label29.Text = "Activer"
                co6()
            Else
                chh = 2
                GunaGoogleSwitch6.Checked = False
                co6()
            End If

        Catch ex As Exception
            Timer46.Start()
        End Try
    End Sub

    Private Sub Timer13_Tick(sender As Object, e As EventArgs) Handles Timer13.Tick
        Timer13.Stop()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "photo.png", compte & "photo.png")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                File.Delete(compte & "photo.png")
                Timer13.Start()
                Exit Sub
            Else
                PictureBox2.Image = Image.FromFile(compte & "photo.png")
                Form1.DriveToolStripMenuItem.Visible = True
                co5()
            End If
        Catch ex As Exception
            Timer13.Start()
        End Try
    End Sub
    Sub loadco()
        If dl = 0 Then
            ComboBox10.SelectedItem = "@gmail.com"
            Dim lines55() As String = File.ReadAllLines(comtpeco2)
            If lines55(0) = 1 Then
                Label17.Hide()
                Label18.Hide()
                TextBox7.Hide()
                TextBox8.Hide()
                Button12.Hide()
                Button11.Hide()
                Dim lines57() As String = File.ReadAllLines(compteco)
                Label21.Text = lines57(0)
                Try
                    Dim maj As New WebClient
                    Dim vri As String = maj.DownloadString(ipsite & "/newletter/" & Label21.Text & ".txt")
                    GunaGoogleSwitch19.Checked = True
                    Label64.Text = "Oui"
                    letterchange = 1
                Catch ex As Exception
                    GunaGoogleSwitch19.Checked = False
                    Label64.Text = "Non"
                    letterchange = 1
                End Try

                Try
                    CheckBox27.Visible = True
                    My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & lines57(0) & "/photo.png", compte & "photo.png")
                    Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
                    Dim TailleFichier As Integer = FichierInfo.Length
                    If TailleFichier = 0 Then
                        File.Delete(compte & "photo.png")
                        Timer15.Start()
                    Else
                        PictureBox2.Image = Image.FromFile(compte & "photo.png")
                        Panel2.Show()
                        Panel1.Hide()
                        load7()
                    End If
                Catch ex As Exception
                    Timer15.Start()
                End Try
            Else
                finiload()
                Panel1.Hide()
                Panel2.Hide()
            End If
        End If
    End Sub

    Private Sub Timer15_Tick(sender As Object, e As EventArgs) Handles Timer15.Tick
        Timer15.Stop()
        If dl = 0 Then
            ComboBox10.SelectedItem = "@gmail.com"
            Dim lines55() As String = File.ReadAllLines(comtpeco2)
            If lines55(0) = 1 Then
                Dim lines57() As String = File.ReadAllLines(compteco)
                Label21.Text = lines57(0)
                Try
                    My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & lines57(0) & "/" & "photo.png", compte & "photo.png")
                    Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "photo.png")
                    Dim TailleFichier As Integer = FichierInfo.Length
                    If TailleFichier = 0 Then
                        File.Delete(compte & "photo.png")
                        Timer15.Start()
                    Else
                        PictureBox2.Image = Image.FromFile(compte & "photo.png")
                        Panel2.Show()
                        Panel1.Hide()
                        load7()
                    End If
                Catch ex As Exception
                    Timer15.Start()
                End Try
            End If
        End If
    End Sub

    Private Sub Timer18_Tick(sender As Object, e As EventArgs) Handles Timer18.Tick
        Try
            Timer18.Stop()
            My.Computer.Network.UploadFile(compte & "photo.png", ipserver & "/utilisateur/" & Label21.Text & "/photo.png")
            MsgBox("Vôtre photo de profile a bien été modifier", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer18.Start()
        End Try
    End Sub
    Sub syhistorique()
        Dim lines428() As String = File.ReadAllLines(compteco)
        Dim tcon = lines428(0)
        Dim sw1 As New StreamWriter(cozip & "setting.txt")
        sw1.WriteLine(0)
        sw1.WriteLine(1)
        sw1.Close()
        Try
            My.Computer.Network.UploadFile(historique, ipserver & "/utilisateur/" & tcon & "/historique.txt")
            My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "/utilisateur/" & tcon & "/setting.txt")
            File.Delete(cozip & "setting.txt")
            Label29.Text = "Activer"
            MsgBox("La synchronisation de l'historique est activée", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub

    Private Sub Timer19_Tick(sender As Object, e As EventArgs) Handles Timer19.Tick
        Timer19.Stop()
        Dim lines428() As String = File.ReadAllLines(compteco)
        Dim tcon = lines428(0)
        Try
            My.Computer.Network.UploadFile(historique, ipserver & "/utilisateur/" & tcon & "/historique.txt")
            My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "/utilisateur/" & tcon & "/setting.txt")
            File.Delete(cozip & "setting.txt")
            Label29.Text = "Activer"
            MsgBox("La synchronisation de l'historique est activée", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer19.Start()
        End Try
    End Sub
    Sub syhistorique2()
        Dim lines428() As String = File.ReadAllLines(compteco)
        Dim tcon = lines428(0)
        Dim sw1 As New StreamWriter(cozip & "setting.txt")
        sw1.WriteLine(0)
        sw1.WriteLine(0)
        sw1.Close()
        Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & tcon & "/historique.txt")
        ftreq.Method = WebRequestMethods.Ftp.DeleteFile
        ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
        Dim ftpresp As FtpWebResponse = ftreq.GetResponse
        Label29.Text = "Désactivée"
        Try
            My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "utilisateur/" & Label21.Text & "/setting.txt")
            File.Delete(cozip & "setting.txt")
            MsgBox("La synchronisation de l'historique est Désactivé", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer50.Start()
        End Try
    End Sub
    Sub co6()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/mail.txt", cozip & "mail.txt")
        Catch ex As Exception
            Timer43.Start()
        End Try
        mail5()
    End Sub
    Sub mail5()
        If ergister2 = 1 Then

        Else
            Try
                Dim lines1() As String = File.ReadAllLines(cozip & "mail.txt")
                Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
                Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
                Dim Crypto As New DESCryptoServiceProvider()
                Crypto.Key = keyBytes
                Crypto.IV = keyBytes
                Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
                Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
                Dim maildcrypt = Encoding.UTF8.GetString(donné)
                Dim MyMailMessage As New MailMessage()
                Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
                Dim mail = maildcrypt
                Dim message = "Une nouvelle connexion à votre compte a été détecté !!! " & vbNewLine & vbNewLine & "IPV4/IPV6: " & MyIP & vbNewLine & vbNewLine & "nom de pc: " & My.Computer.Name & vbNewLine & vbNewLine & "OS (systeme dexploitation): " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & "Si vous n'être pas a l'origine de cette connection, merci de changer immédiatement votre mots de passe."

                MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
                MyMailMessage.To.Add(mail)
                MyMailMessage.Subject = ("nouvelle connexion")
                MyMailMessage.Body = (message)

                SMTPServer.Port = ("587") 'Port
                SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
                SMTPServer.EnableSsl = True

                SMTPServer.Send(MyMailMessage) 'Envoi

                ergister2 = 1
                finico()
            Catch ex As Exception
                Timer6.Start()
            End Try
        End If

    End Sub
    Function MyIP_WinHTTP()
        Try
            Dim objHTTP, strURL
            MyIP_WinHTTP = "0.0.0.0"
            strURL = "http://tools.feron.it/php/ip.php"
            objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
            objHTTP.Open("GET", strURL)
            objHTTP.Send()
            If objHTTP.Status = 200 Then MyIP_WinHTTP = objHTTP.ResponseText
            objHTTP = Nothing
        Catch ex As Exception
            Exit Function
        End Try
    End Function
    Dim MyIP As String = MyIP_WinHTTP()

    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
        Form142.ShowDialog()
    End Sub
    Sub mail6()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "mail.txt", cozip & "mail.txt")
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "pass.txt", cozip & "pass.txt")
            mail7()
        Catch ex As Exception
            Timer26.Start()
        End Try
    End Sub
    Sub mail7()
        mail()
    End Sub
    Private Sub Timer26_Tick(sender As Object, e As EventArgs) Handles Timer26.Tick
        Timer26.Stop()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "mail.txt", cozip & "mail.txt")
            My.Computer.Network.DownloadFile(ipserver & "/Utilisateur/" & "/" & TextBox7.Text & "/" & "pass.txt", cozip & "pass.txt")
            mail7()
        Catch ex As Exception
            Timer26.Start()
        End Try
    End Sub
    Sub supprimer()
        Label17.Show()
        Label18.Show()
        TextBox7.Show()
        TextBox8.Show()
        Button12.Show()
        Button11.Show()
        Try
            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
            Dim mail = "contact@lecteur-media.fr"
            Dim message = "le compte: " & Label21.Text & "souhaite supprimer son compte"

            MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("supprétion de compte")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage) 'Envoi
            Me.Enabled = False
            Form1.deco()
            MsgBox("Un message a été envoyé au développer, votre compte: " & Label21.Text & " sera supprimer bientôt", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer1.Start()
        End Try
    End Sub
    Sub co7()
        co8()
    End Sub
    Sub co8()
        co9()
    End Sub
    Sub deco()
        deco2()
    End Sub

    Private Sub Timer30_Tick(sender As Object, e As EventArgs) Handles Timer30.Tick
        Timer30.Stop()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/co.zip", compte & "co.zip")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                File.Delete(compte & "co.zip")
                Timer30.Start()
            Else
                System.IO.Compression.ZipFile.ExtractToDirectory(compte & "co.zip", cozip)
                File.Delete(compte & "co.zip")
                Dim lines1() As String = File.ReadAllLines(cozip & "infoco.txt")
                Dim t1 = lines1(0)
                Dim sw6 As New StreamWriter(cozip & "infoco.txt")
                sw6.WriteLine(t1 - 1)
                sw6.Close()
                deco2()
            End If
        Catch ex As Exception
            Timer30.Start()
        End Try
    End Sub
    Sub co9()
        FileCopy(cozip & "pass.txt", compte & "passtemps.txt")
        ListBox4.Items.Clear()
        Timer39.Start()
    End Sub
    Sub co9b()
        If Directory.Exists(cozip & My.Computer.Name) = True Then
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.DirectoryInfo(fichier)
                Directory.Delete(info.FullName)
            Next
            co10b()
        Else
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.DirectoryInfo(fichier)
                Directory.Delete(info.FullName)
            Next
            co9a()
        End If
    End Sub
    Sub co10b()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & My.Computer.Name)
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & str)
                ftreq.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp As FtpWebResponse = ftreq.GetResponse

                str = sr.ReadLine()

            End While

            sr.Close()

            coco9b()

        Catch ex As Exception
            Timer40.Start()
        End Try
    End Sub
    Sub coco9b()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name)
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            co9a()
        Catch ex As Exception
            Timer40.Start()
        End Try

    End Sub

    Sub co9a()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            co11()
        Catch ex As Exception
            Timer36.Start()
        End Try
    End Sub
    Sub co11()
        Dim sw1 As New StreamWriter(cozip & "index.php")
        sw1.WriteLine("<?php")
        sw1.WriteLine("echo ""Erreur 404 page non trouvez"";")
        sw1.WriteLine("?>")
        sw1.Close()
        Dim sw2 As New StreamWriter(cozip & "info.txt")
        sw2.WriteLine("Nom du pc: " & My.Computer.Name)
        sw2.WriteLine("OS: " & My.Computer.Info.OSFullName)
        sw2.Close()
        co12()
    End Sub
    Sub co12()
        Try
            My.Computer.Network.UploadFile(cozip & "index.php", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/index.php")
            File.Delete(cozip & "index.php")
            co14()
        Catch ex As Exception
            Timer37.Start()
        End Try
    End Sub
    Sub co14()
        Try
            My.Computer.Network.UploadFile(cozip & "info.txt", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/info.txt")
            File.Delete(cozip & "info.txt")
            co10()
        Catch ex As Exception
            Timer38.Start()
        End Try
    End Sub
    Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
        pcinfo.ShowDialog()
    End Sub
    Sub deco2()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/info.txt")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            deco1a()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub
    Sub deco1a()
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/co.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            deco2a()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub
    Sub deco2a()
        MsgBox(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
        Try
            MsgBox(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
            Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
            ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
            deco3a()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub
    Sub deco3a()
        Try
            Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/")
            ftreq4.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse

        Catch ex As Exception
            Timer22.Start()
        End Try
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(fichier)
        Next
        decofini()
    End Sub
    Sub co10()
        co4()
    End Sub
    Sub ft5()
        mail3()
    End Sub
    Sub ftp7()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/Dictée/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftppc()
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub
    Sub ftppc()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/pc/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp3()
        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub

    Private Sub TextBox7_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox7.KeyDown
        If e.KeyData = Keys.Enter Then
            TextBox8.Focus()
        End If
    End Sub

    Private Sub TextBox8_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox8.KeyDown
        If e.KeyData = Keys.Enter Then
            If File.Exists(compte & "temp.txt") = True Then
                Dim lines1() As String = File.ReadAllLines(compte & "temp.txt")
                MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter: " & lines1(0) & " minute", MsgBoxStyle.Critical)
            Else
                If passeincor = 2 Then
                    LinkLabel2.Show()
                    LinkLabel3.Show()
                    co1()
                ElseIf passeincor = 4 Then
                    MsgBox("Vous avez été bloquer," & vbNewLine & "Vous ne pouvez plus vous connecter." & vbNewLine & vbNewLine & " merci de patienter 15 minutes", MsgBoxStyle.Critical)
                    If File.Exists(compte & "temp.txt") = True Then

                    Else
                        Dim sw1 As New StreamWriter(compte & "temp.txt")
                        sw1.WriteLine(15)
                        sw1.Close()
                        Form1.Timer17.Start()
                    End If
                Else
                    co1()
                End If
            End If
        End If
    End Sub
    Sub finico()
        finico2()
    End Sub
    Sub finico2()
        Form1.TchatEnLigneToolStripMenuItem.Visible = True
        Me.Enabled = True
        Me.UseWaitCursor = False
        Dim lines428() As String = File.ReadAllLines(compteco)
        Dim tcon = lines428(0)
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next
        Form1.NotifyIcon1.BalloonTipTitle = ("Compte")
        Form1.NotifyIcon1.BalloonTipText = ("Vous être connecter au compte: " & tcon)
        Form1.NotifyIcon1.ShowBalloonTip(0)
        LinkLabel2.Hide()
        LinkLabel3.Hide()
        Panel2.Show()
        Panel1.Hide()
        Label17.Hide()
        Label18.Hide()
        TextBox7.Hide()
        TextBox8.Hide()
        Button12.Hide()
        Button11.Hide()
        MsgBox("Vous été connecter au compte: " & Label21.Text, MsgBoxStyle.Information)
    End Sub
    Private Sub GunaGoogleSwitch8_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch8.CheckedChanged
        If GunaGoogleSwitch8.Checked = True Then
            ComboBox14.SelectedItem = "5 minute"
            marquerauto = 1
            ComboBox14.Show()
            GunaLabel11.Text = "Activer"
        Else
            marquerauto = 0
            marquerautotemps = 0
            ComboBox14.Hide()
            GunaLabel11.Text = "Désactivée"
        End If
    End Sub
    Private Sub ComboBox14_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox14.SelectedValueChanged
        If ComboBox14.SelectedItem = "1 minute" Then
            marquerautotemps = 1
        ElseIf ComboBox14.SelectedItem = "3 minute" Then
            marquerautotemps = 3
        ElseIf ComboBox14.SelectedItem = "5 minute" Then
            marquerautotemps = 5
        ElseIf ComboBox14.SelectedItem = "10 minute" Then
            marquerautotemps = 10
        ElseIf ComboBox14.SelectedItem = "15 minute" Then
            marquerautotemps = 15
        ElseIf ComboBox14.SelectedItem = "20 minute" Then
            marquerautotemps = 20
        ElseIf ComboBox14.SelectedItem = "25 minute" Then
            marquerautotemps = 25
        ElseIf ComboBox14.SelectedItem = "30 minute" Then
            marquerautotemps = 30
        ElseIf ComboBox14.SelectedItem = "35 minute" Then
            marquerautotemps = 35
        ElseIf ComboBox14.SelectedItem = "40 minute" Then
            marquerautotemps = 40
        ElseIf ComboBox14.SelectedItem = "45 minute" Then
            marquerautotemps = 45
        ElseIf ComboBox14.SelectedItem = "50 minute" Then
            marquerautotemps = 50
        ElseIf ComboBox14.SelectedItem = "55 minute" Then
            marquerautotemps = 55
        ElseIf ComboBox14.SelectedItem = "1 heurs " Then
            marquerautotemps = 60
        End If
    End Sub
    Sub suprezip()
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(fichier)
        Next
    End Sub
    Sub savesync()
        Try
            If My.Computer.Network.Ping("google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                If vri = 1 Then
                    MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)

                    If profilnomtemps = "" Then

                    Else
                        Form1.Timer14.Stop()
                        My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                        nomprofils = profilnomtemps
                        Form152.ShowDialog()
                    End If
                    closea = 1
                    Close()
                Else
                    savessync2()
                End If
            Else
                MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
                If profilnomtemps = "" Then

                Else
                    Form1.Timer14.Stop()
                    My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                    nomprofils = profilnomtemps
                    Form152.ShowDialog()
                End If
                closea = 1
                Close()
            End If
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub
    Sub savessync2()
        File.Delete(compte & "/co.zip")
        Try
            IO.Compression.ZipFile.CreateFromDirectory(cozip, compte & "co.zip")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                Timer42.Start()
            Else
                savessync3()
            End If
        Catch ex As Exception
            Timer42.Start()
        End Try

    End Sub

    Private Sub Timer33_Tick(sender As Object, e As EventArgs) Handles Timer33.Tick
        Timer33.Stop()
        Try
            My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
            savessync4()
        Catch ex As Exception
            Timer33.Start()
        End Try
    End Sub

    Sub load7()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/setting.txt", cozip & "setting.txt")
            Dim lines10() As String = File.ReadAllLines(cozip & "setting.txt")

            If lines10(1) = 1 Then
                File.Delete(cozip & "setting.txt")
                Label29.Text = "Activer"
                chh = 1
                GunaGoogleSwitch6.Checked = True
            Else
                File.Delete(cozip & "setting.txt")
                Label29.Text = "Désactivée"
                chh = 2
                GunaGoogleSwitch6.Checked = False
            End If
            load8()
        Catch ex As Exception
            Timer57.Start()
        End Try
    End Sub
    Sub decofini()
        File.Delete(compte & "co.zip")
        Form1.NotifyIcon1.BalloonTipTitle = "Déconnection"
        Form1.NotifyIcon1.BalloonTipText = "Vous être bien déconnecter du compte: " & Label21.Text
        Form1.NotifyIcon1.ShowBalloonTip(0)
        MsgBox("Vous être bien déconnecter du compte: " & Label21.Text, MsgBoxStyle.Information)
    End Sub

    Private Sub Timer58_Tick(sender As Object, e As EventArgs) Handles Timer58.Tick
        Timer58.Stop()
        Try
            My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
            File.Delete(compte & "co.zip")
            Form1.NotifyIcon1.BalloonTipTitle = "Déconnection"
            Form1.NotifyIcon1.BalloonTipText = "Vous être bien déconnecter du compte: " & Label21.Text
            Form1.NotifyIcon1.ShowBalloonTip(0)
            MsgBox("Vous être bien déconnecter du compte: " & Label21.Text, MsgBoxStyle.Information)
        Catch ex As Exception
            Timer58.Start()
        End Try
    End Sub
    Sub deco7()
        deco()
    End Sub
    Private Sub ComboBox15_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox15.SelectedValueChanged
        If ComboBox15.SelectedItem = "Parcourir" Then
            If OpenFileDialog2.ShowDialog = 1 Then
                If OpenFileDialog2.FileName.EndsWith(".gif") Then
                    MsgBox("Attention les images GIF peux altérer le bon fonctionnement de lecteur média" & vbNewLine & "Merci de votre compréhension", MsgBoxStyle.Information)
                    ComboBox15.Items.Add(OpenFileDialog2.SafeFileName)
                    ComboBox15.SelectedItem = OpenFileDialog2.SafeFileName
                    PictureBox6.Image = Image.FromFile(OpenFileDialog2.FileName)
                    PictureBox6.Show()
                Else
                    ComboBox15.Items.Add(OpenFileDialog2.SafeFileName)
                    ComboBox15.SelectedItem = OpenFileDialog2.SafeFileName
                    PictureBox6.Image = Image.FromFile(OpenFileDialog2.FileName)
                    PictureBox6.Show()
                End If
            End If
        ElseIf ComboBox15.SelectedItem = "Part default" Then
            PictureBox6.Hide()
        End If
    End Sub
    Private Sub ComboBox16_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox16.SelectedValueChanged
        If ComboBox16.SelectedItem = "Parcourir" Then
            If OpenFileDialog3.ShowDialog = 1 Then
                ComboBox16.Items.Add(OpenFileDialog3.SafeFileName)
                ComboBox16.SelectedItem = OpenFileDialog3.SafeFileName
            Else
                ComboBox16.SelectedItem = "Part default"
            End If
        Else

        End If
    End Sub
    Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        Try
            If My.Computer.Network.Ping("google.com") Then
                mail2()
            Else
                MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
        End Try
    End Sub

    Private Sub Timer5_Tick(sender As Object, e As EventArgs) Handles Timer5.Tick
        Try
            My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/co.zip", compte & "co.zip")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                File.Delete(compte & "co.zip")
                Timer5.Start()
            Else
                deco7()
            End If
        Catch ex As Exception
            Timer5.Start()
        End Try
    End Sub

    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
        Dim msg = MsgBox("Voulez-vous vraiment supprimer tous les marqueurs", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            For Each fichier As String In IO.Directory.GetFiles(marqueur)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next
            Button24.Hide()
            Button2.Hide()
            ComboBox9.Items.Clear()
            MsgBox("Tous les marqueurs ont bien été supprimer", MsgBoxStyle.Information)
        Else
            MsgBox("Aucun marqueur a bien été supprimer", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub ComboBox18_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox18.SelectedValueChanged
        If ComboBox18.SelectedItem = "3 marqueur" Then
            marqueurtempsa = 3
        ElseIf ComboBox18.SelectedItem = "5 marqueur" Then
            marqueurtempsa = 5
        ElseIf ComboBox18.SelectedItem = "10 marqueur" Then
            marqueurtempsa = 10
        ElseIf ComboBox18.SelectedItem = "15 marqueur" Then
            marqueurtempsa = 15
        ElseIf ComboBox18.SelectedItem = "20 marqueur" Then
            marqueurtempsa = 20
        ElseIf ComboBox18.SelectedItem = "25 marqueur" Then
            marqueurtempsa = 25
        ElseIf ComboBox18.SelectedItem = "30 marqueur" Then
            marqueurtempsa = 30
        ElseIf ComboBox18.SelectedItem = "35 marqueur" Then
            marqueurtempsa = 35
        ElseIf ComboBox18.SelectedItem = "40 marqueur" Then
            marqueurtempsa = 40
        ElseIf ComboBox18.SelectedItem = "45 marqueur" Then
            marqueurtempsa = 45
        ElseIf ComboBox18.SelectedItem = "50 marqueur" Then
            marqueurtempsa = 50
        ElseIf ComboBox18.SelectedItem = "55 marqueur" Then
            marqueurtempsa = 55
        ElseIf ComboBox18.SelectedItem = "60 marqueur" Then
            marqueurtempsa = 60
        End If
    End Sub

    Private Sub GunaGoogleSwitch9_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch9.CheckedChanged
        If GunaGoogleSwitch9.Checked = True Then
            plan = 1
            GunaLabel14.Text = "Activer"
        Else
            plan = 0
            GunaLabel14.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch10_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch10.CheckedChanged
        If GunaGoogleSwitch10.Checked = True Then
            miniradio = 1
            GunaLabel16.Text = "Activer"
        Else
            miniradio = 0
            GunaLabel16.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch11_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch11.CheckedChanged
        If GunaGoogleSwitch11.Checked = True Then
            GunaLabel18.Text = "Activer"
            Form76.GunaGoogleSwitch5.Checked = True
            kara = 1
        Else
            GunaLabel18.Text = "Désactivée"
            kara = 0
            Form76.GunaGoogleSwitch5.Checked = False
        End If
    End Sub

    Private Sub GunaGoogleSwitch12_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch12.CheckedChanged
        If GunaGoogleSwitch12.Checked = True Then
            vch = 1
            GunaLabel20.Text = "Activer"
        Else
            vch = 0
            GunaLabel20.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch13_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch13.CheckedChanged
        If GunaGoogleSwitch13.Checked = True Then
            vmp = 1
            GunaLabel22.Text = "Activer"
        Else
            vmp = 0
            GunaLabel22.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch14_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch14.CheckedChanged
        If GunaGoogleSwitch14.Checked = True Then
            plans = 1
            GunaLabel24.Text = "Activer"
        Else
            plans = 0
            GunaLabel24.Text = "Désactivée"
        End If
    End Sub

    Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click
        couleurtemps = 0
        GunaGoogleSwitch16.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch17.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch18.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch19.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch16.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch17.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch18.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch19.FillColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar1.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar2.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar3.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar4.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar5.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar6.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar7.ProgressColor = Color.FromArgb(255, 128, 0)
        CircularProgressBar8.ProgressColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch1.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch1.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch2.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch2.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch3.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch3.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch4.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch4.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch5.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch5.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch6.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch6.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch7.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch7.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch8.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch8.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch9.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch9.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch10.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch10.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch11.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch11.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch12.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch12.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch13.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch13.CheckedOnColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch14.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch14.CheckedOnColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol1.SquareColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol2.SquareColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol3.SquareColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol4.SquareColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol5.SquareColor = Color.FromArgb(255, 128, 0)
        ChromeTabcontrol6.SquareColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch15.FillColor = Color.FromArgb(255, 128, 0)
        GunaGoogleSwitch15.CheckedOnColor = Color.FromArgb(255, 128, 0)
        PictureBox7.Image = My.Resources.orange_sel
        PictureBox8.Image = My.Resources.vert
        PictureBox9.Image = My.Resources.bleu
        PictureBox10.Image = My.Resources.rouge
    End Sub

    Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click
        couleurtemps = 1
        GunaGoogleSwitch16.CheckedOnColor = Color.Green
        GunaGoogleSwitch17.CheckedOnColor = Color.Green
        GunaGoogleSwitch18.CheckedOnColor = Color.Green
        GunaGoogleSwitch19.CheckedOnColor = Color.Green
        GunaGoogleSwitch16.FillColor = Color.Green
        GunaGoogleSwitch17.FillColor = Color.Green
        GunaGoogleSwitch18.FillColor = Color.Green
        GunaGoogleSwitch19.FillColor = Color.Green
        CircularProgressBar1.ProgressColor = Color.Green
        CircularProgressBar2.ProgressColor = Color.Green
        CircularProgressBar3.ProgressColor = Color.Green
        CircularProgressBar4.ProgressColor = Color.Green
        CircularProgressBar5.ProgressColor = Color.Green
        CircularProgressBar6.ProgressColor = Color.Green
        CircularProgressBar7.ProgressColor = Color.Green
        CircularProgressBar8.ProgressColor = Color.Green
        GunaGoogleSwitch1.CheckedOnColor = Color.Green
        GunaGoogleSwitch1.FillColor = Color.Green
        GunaGoogleSwitch2.FillColor = Color.Green
        GunaGoogleSwitch2.CheckedOnColor = Color.Green
        GunaGoogleSwitch3.FillColor = Color.Green
        GunaGoogleSwitch3.CheckedOnColor = Color.Green
        GunaGoogleSwitch4.FillColor = Color.Green
        GunaGoogleSwitch4.CheckedOnColor = Color.Green
        GunaGoogleSwitch5.FillColor = Color.Green
        GunaGoogleSwitch5.CheckedOnColor = Color.Green
        GunaGoogleSwitch6.FillColor = Color.Green
        GunaGoogleSwitch6.CheckedOnColor = Color.Green
        GunaGoogleSwitch7.FillColor = Color.Green
        GunaGoogleSwitch7.CheckedOnColor = Color.Green
        GunaGoogleSwitch8.FillColor = Color.Green
        GunaGoogleSwitch8.CheckedOnColor = Color.Green
        GunaGoogleSwitch9.FillColor = Color.Green
        GunaGoogleSwitch9.CheckedOnColor = Color.Green
        GunaGoogleSwitch10.FillColor = Color.Green
        GunaGoogleSwitch10.CheckedOnColor = Color.Green
        GunaGoogleSwitch11.FillColor = Color.Green
        GunaGoogleSwitch11.CheckedOnColor = Color.Green
        GunaGoogleSwitch12.FillColor = Color.Green
        GunaGoogleSwitch12.CheckedOnColor = Color.Green
        GunaGoogleSwitch13.FillColor = Color.Green
        GunaGoogleSwitch13.CheckedOnColor = Color.Green
        GunaGoogleSwitch14.FillColor = Color.Green
        GunaGoogleSwitch14.CheckedOnColor = Color.Green
        GunaGoogleSwitch15.FillColor = Color.Green
        GunaGoogleSwitch15.CheckedOnColor = Color.Green
        ChromeTabcontrol1.SquareColor = Color.Green
        ChromeTabcontrol2.SquareColor = Color.Green
        ChromeTabcontrol3.SquareColor = Color.Green
        ChromeTabcontrol4.SquareColor = Color.Green
        ChromeTabcontrol5.SquareColor = Color.Green
        ChromeTabcontrol6.SquareColor = Color.Green
        PictureBox7.Image = My.Resources.orange
        PictureBox8.Image = My.Resources.vert_sel
        PictureBox9.Image = My.Resources.bleu
        PictureBox10.Image = My.Resources.rouge
    End Sub

    Private Sub PictureBox9_Click(sender As Object, e As EventArgs) Handles PictureBox9.Click
        couleurtemps = 2
        GunaGoogleSwitch16.CheckedOnColor = Color.Blue
        GunaGoogleSwitch17.CheckedOnColor = Color.Blue
        GunaGoogleSwitch18.CheckedOnColor = Color.Blue
        GunaGoogleSwitch19.CheckedOnColor = Color.Blue
        GunaGoogleSwitch16.FillColor = Color.Blue
        GunaGoogleSwitch17.FillColor = Color.Blue
        GunaGoogleSwitch18.FillColor = Color.Blue
        GunaGoogleSwitch19.FillColor = Color.Blue
        CircularProgressBar1.ProgressColor = Color.Blue
        CircularProgressBar2.ProgressColor = Color.Blue
        CircularProgressBar3.ProgressColor = Color.Blue
        CircularProgressBar4.ProgressColor = Color.Blue
        CircularProgressBar5.ProgressColor = Color.Blue
        CircularProgressBar6.ProgressColor = Color.Blue
        CircularProgressBar7.ProgressColor = Color.Blue
        CircularProgressBar8.ProgressColor = Color.Blue
        GunaGoogleSwitch1.CheckedOnColor = Color.Blue
        GunaGoogleSwitch1.FillColor = Color.Blue
        GunaGoogleSwitch2.FillColor = Color.Blue
        GunaGoogleSwitch2.CheckedOnColor = Color.Blue
        GunaGoogleSwitch3.FillColor = Color.Blue
        GunaGoogleSwitch3.CheckedOnColor = Color.Blue
        GunaGoogleSwitch4.FillColor = Color.Blue
        GunaGoogleSwitch4.CheckedOnColor = Color.Blue
        GunaGoogleSwitch5.FillColor = Color.Blue
        GunaGoogleSwitch5.CheckedOnColor = Color.Blue
        GunaGoogleSwitch6.FillColor = Color.Blue
        GunaGoogleSwitch6.CheckedOnColor = Color.Blue
        GunaGoogleSwitch7.FillColor = Color.Blue
        GunaGoogleSwitch7.CheckedOnColor = Color.Blue
        GunaGoogleSwitch8.FillColor = Color.Blue
        GunaGoogleSwitch8.CheckedOnColor = Color.Blue
        GunaGoogleSwitch9.FillColor = Color.Blue
        GunaGoogleSwitch9.CheckedOnColor = Color.Blue
        GunaGoogleSwitch10.FillColor = Color.Blue
        GunaGoogleSwitch10.CheckedOnColor = Color.Blue
        GunaGoogleSwitch11.FillColor = Color.Blue
        GunaGoogleSwitch11.CheckedOnColor = Color.Blue
        GunaGoogleSwitch12.FillColor = Color.Blue
        GunaGoogleSwitch12.CheckedOnColor = Color.Blue
        GunaGoogleSwitch13.FillColor = Color.Blue
        GunaGoogleSwitch13.CheckedOnColor = Color.Blue
        GunaGoogleSwitch14.FillColor = Color.Blue
        GunaGoogleSwitch14.CheckedOnColor = Color.Blue
        GunaGoogleSwitch15.FillColor = Color.Blue
        GunaGoogleSwitch15.CheckedOnColor = Color.Blue
        ChromeTabcontrol1.SquareColor = Color.Blue
        ChromeTabcontrol2.SquareColor = Color.Blue
        ChromeTabcontrol3.SquareColor = Color.Blue
        ChromeTabcontrol4.SquareColor = Color.Blue
        ChromeTabcontrol5.SquareColor = Color.Blue
        ChromeTabcontrol6.SquareColor = Color.Blue
        PictureBox7.Image = My.Resources.orange
        PictureBox8.Image = My.Resources.vert
        PictureBox9.Image = My.Resources.bleu_sel
        PictureBox10.Image = My.Resources.rouge
    End Sub

    Private Sub PictureBox10_Click(sender As Object, e As EventArgs) Handles PictureBox10.Click
        couleurtemps = 3
        GunaGoogleSwitch16.CheckedOnColor = Color.Red
        GunaGoogleSwitch17.CheckedOnColor = Color.Red
        GunaGoogleSwitch18.CheckedOnColor = Color.Red
        GunaGoogleSwitch19.CheckedOnColor = Color.Red
        GunaGoogleSwitch16.FillColor = Color.Red
        GunaGoogleSwitch17.FillColor = Color.Red
        GunaGoogleSwitch18.FillColor = Color.Red
        GunaGoogleSwitch19.FillColor = Color.Red
        CircularProgressBar1.ProgressColor = Color.Red
        CircularProgressBar2.ProgressColor = Color.Red
        CircularProgressBar3.ProgressColor = Color.Red
        CircularProgressBar4.ProgressColor = Color.Red
        CircularProgressBar5.ProgressColor = Color.Red
        CircularProgressBar6.ProgressColor = Color.Red
        CircularProgressBar7.ProgressColor = Color.Red
        CircularProgressBar8.ProgressColor = Color.Red
        GunaGoogleSwitch1.CheckedOnColor = Color.Red
        GunaGoogleSwitch1.FillColor = Color.Red
        GunaGoogleSwitch2.FillColor = Color.Red
        GunaGoogleSwitch2.CheckedOnColor = Color.Red
        GunaGoogleSwitch3.FillColor = Color.Red
        GunaGoogleSwitch3.CheckedOnColor = Color.Red
        GunaGoogleSwitch4.FillColor = Color.Red
        GunaGoogleSwitch4.CheckedOnColor = Color.Red
        GunaGoogleSwitch5.FillColor = Color.Red
        GunaGoogleSwitch5.CheckedOnColor = Color.Red
        GunaGoogleSwitch6.FillColor = Color.Red
        GunaGoogleSwitch6.CheckedOnColor = Color.Red
        GunaGoogleSwitch7.FillColor = Color.Red
        GunaGoogleSwitch7.CheckedOnColor = Color.Red
        GunaGoogleSwitch8.FillColor = Color.Red
        GunaGoogleSwitch8.CheckedOnColor = Color.Red
        GunaGoogleSwitch9.FillColor = Color.Red
        GunaGoogleSwitch9.CheckedOnColor = Color.Red
        GunaGoogleSwitch10.FillColor = Color.Red
        GunaGoogleSwitch10.CheckedOnColor = Color.Red
        GunaGoogleSwitch11.FillColor = Color.Red
        GunaGoogleSwitch11.CheckedOnColor = Color.Red
        GunaGoogleSwitch12.FillColor = Color.Red
        GunaGoogleSwitch12.CheckedOnColor = Color.Red
        GunaGoogleSwitch13.FillColor = Color.Red
        GunaGoogleSwitch13.CheckedOnColor = Color.Red
        GunaGoogleSwitch14.FillColor = Color.Red
        GunaGoogleSwitch14.CheckedOnColor = Color.Red
        GunaGoogleSwitch15.FillColor = Color.Red
        GunaGoogleSwitch15.CheckedOnColor = Color.Red
        ChromeTabcontrol1.SquareColor = Color.Red
        ChromeTabcontrol2.SquareColor = Color.Red
        ChromeTabcontrol3.SquareColor = Color.Red
        ChromeTabcontrol4.SquareColor = Color.Red
        ChromeTabcontrol5.SquareColor = Color.Red
        ChromeTabcontrol6.SquareColor = Color.Red
        PictureBox7.Image = My.Resources.orange
        PictureBox8.Image = My.Resources.vert
        PictureBox9.Image = My.Resources.bleu
        PictureBox10.Image = My.Resources.rouge_sel
    End Sub
    Sub noir()
        GunaLabel30.ForeColor = Form1.ForeColor
        ComboBox20.BackColor = Form1.BackColor
        ComboBox20.ForeColor = Form1.ForeColor
        Button48.BackColor = Form1.BackColor
        Button48.ForeColor = Form1.ForeColor
        Label64.ForeColor = Color.White
        Label65.ForeColor = Color.White
        Label60.ForeColor = Color.White
        Label61.ForeColor = Color.White
        Label62.ForeColor = Color.White
        Label63.ForeColor = Color.White
        Label24.ForeColor = Color.White
        GunaLabel13.ForeColor = Color.White
        GunaLabel29.ForeColor = Color.White
        ComboBox17.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox17.ForeColor = Color.White
        Button43.BackColor = Color.FromArgb(64, 64, 64)
        Button42.BackColor = Color.FromArgb(64, 64, 64)
        Button45.BackColor = Color.FromArgb(64, 64, 64)
        Button46.BackColor = Color.FromArgb(64, 64, 64)
        Button47.BackColor = Color.FromArgb(64, 64, 64)
        Button43.ForeColor = Color.White
        Button42.ForeColor = Color.White
        Button45.ForeColor = Color.White
        Button46.ForeColor = Color.White
        Button47.ForeColor = Color.White
        Label39.ForeColor = Color.White
        Label44.ForeColor = Color.White
        Label45.ForeColor = Color.White
        Label46.ForeColor = Color.White
        Label47.ForeColor = Color.White
        Label48.ForeColor = Color.White
        Label49.ForeColor = Color.White
        Label50.ForeColor = Color.White
        Label51.ForeColor = Color.White
        Label52.ForeColor = Color.White
        Label53.ForeColor = Color.White
        Label54.ForeColor = Color.White
        Label55.ForeColor = Color.White
        Label56.ForeColor = Color.White
        Label57.ForeColor = Color.White
        Label58.ForeColor = Color.White
        Button44.BackColor = Color.FromArgb(64, 64, 64)
        Button44.ForeColor = Color.White
        CircularProgressBar1.ForeColor = Color.White
        CircularProgressBar2.ForeColor = Color.White
        CircularProgressBar3.ForeColor = Color.White
        CircularProgressBar4.ForeColor = Color.White
        CircularProgressBar5.ForeColor = Color.White
        CircularProgressBar6.ForeColor = Color.White
        CircularProgressBar7.ForeColor = Color.White
        CircularProgressBar8.ForeColor = Color.White
        GunaLabel28.ForeColor = Color.White
        CheckBox27.ForeColor = Color.White
        Button41.BackColor = Color.FromArgb(64, 64, 64)
        Button41.ForeColor = Color.White
        Button40.BackColor = Color.FromArgb(64, 64, 64)
        Button40.ForeColor = Color.White
        Button38.BackColor = Color.FromArgb(64, 64, 64)
        Button39.BackColor = Color.FromArgb(64, 64, 64)
        Button38.ForeColor = Color.White
        Button39.ForeColor = Color.White
        Button36.BackColor = Color.FromArgb(64, 64, 64)
        Button36.ForeColor = Color.White
        Button37.BackColor = Color.FromArgb(64, 64, 64)
        Button37.ForeColor = Color.White
        Button35.BackColor = Color.FromArgb(64, 64, 64)
        Button35.ForeColor = Color.White
        Button34.BackColor = Color.FromArgb(64, 64, 64)
        Button34.ForeColor = Color.White
        TextBox13.BackColor = Color.FromArgb(64, 64, 64)
        TextBox13.ForeColor = Color.White
        GunaCirclePictureBox1.BackColor = Color.FromArgb(64, 64, 64)
        Label42.BackColor = Color.FromArgb(64, 64, 64)
        Label42.ForeColor = Color.White
        Label43.BackColor = Color.FromArgb(64, 64, 64)
        Label43.ForeColor = Color.White
        LinkLabel1.LinkColor = Color.White
        LinkLabel2.LinkColor = Color.White
        LinkLabel3.LinkColor = Color.White
        Panel21.BackColor = Color.FromArgb(64, 64, 64)
        Panel1.BackColor = Color.FromArgb(64, 64, 64)
        Panel2.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox1.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox2.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox4.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox5.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox6.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox13.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox14.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox15.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox16.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox17.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox18.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox19.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox20.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox21.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox22.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox24.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox25.BackColor = Color.FromArgb(64, 64, 64)
        CheckBox26.BackColor = Color.FromArgb(64, 64, 64)
        Button1.BackColor = Color.FromArgb(64, 64, 64)
        Button2.BackColor = Color.FromArgb(64, 64, 64)
        Button3.BackColor = Color.FromArgb(64, 64, 64)
        Button4.BackColor = Color.FromArgb(64, 64, 64)
        Button5.BackColor = Color.FromArgb(64, 64, 64)
        Button6.BackColor = Color.FromArgb(64, 64, 64)
        Button7.BackColor = Color.FromArgb(64, 64, 64)
        Button8.BackColor = Color.FromArgb(64, 64, 64)
        Button9.BackColor = Color.FromArgb(64, 64, 64)
        Button10.BackColor = Color.FromArgb(64, 64, 64)
        Button11.BackColor = Color.FromArgb(64, 64, 64)
        Button12.BackColor = Color.FromArgb(64, 64, 64)
        Button13.BackColor = Color.FromArgb(64, 64, 64)
        Button14.BackColor = Color.FromArgb(64, 64, 64)
        Button15.BackColor = Color.FromArgb(64, 64, 64)
        Button16.BackColor = Color.FromArgb(64, 64, 64)
        Button17.BackColor = Color.FromArgb(64, 64, 64)
        Button18.BackColor = Color.FromArgb(64, 64, 64)
        Button19.BackColor = Color.FromArgb(64, 64, 64)
        Button20.BackColor = Color.FromArgb(64, 64, 64)
        Button21.BackColor = Color.FromArgb(64, 64, 64)
        Button22.BackColor = Color.FromArgb(64, 64, 64)
        Button23.BackColor = Color.FromArgb(64, 64, 64)
        Button24.BackColor = Color.FromArgb(64, 64, 64)
        Button25.BackColor = Color.FromArgb(64, 64, 64)
        Button26.BackColor = Color.FromArgb(64, 64, 64)
        Button27.BackColor = Color.FromArgb(64, 64, 64)
        Button28.BackColor = Color.FromArgb(64, 64, 64)
        Button29.BackColor = Color.FromArgb(64, 64, 64)
        Button30.BackColor = Color.FromArgb(64, 64, 64)
        Button31.BackColor = Color.FromArgb(64, 64, 64)
        Button32.BackColor = Color.FromArgb(64, 64, 64)
        Button33.BackColor = Color.FromArgb(64, 64, 64)
        ChromeButton1.BackColor = Color.FromArgb(64, 64, 64)
        ChromeButton2.BackColor = Color.FromArgb(64, 64, 64)
        Label1.BackColor = Color.FromArgb(64, 64, 64)
        Label2.BackColor = Color.FromArgb(64, 64, 64)
        Label3.BackColor = Color.FromArgb(64, 64, 64)
        Label4.BackColor = Color.FromArgb(64, 64, 64)
        Label5.BackColor = Color.FromArgb(64, 64, 64)
        Label6.BackColor = Color.FromArgb(64, 64, 64)
        Label7.BackColor = Color.FromArgb(64, 64, 64)
        Label8.BackColor = Color.FromArgb(64, 64, 64)
        Label9.BackColor = Color.FromArgb(64, 64, 64)
        Label10.BackColor = Color.FromArgb(64, 64, 64)
        Label11.BackColor = Color.FromArgb(64, 64, 64)
        Label12.BackColor = Color.FromArgb(64, 64, 64)
        Label13.BackColor = Color.FromArgb(64, 64, 64)
        Label14.BackColor = Color.FromArgb(64, 64, 64)
        Label15.BackColor = Color.FromArgb(64, 64, 64)
        Label16.BackColor = Color.FromArgb(64, 64, 64)
        Label17.BackColor = Color.FromArgb(64, 64, 64)
        Label18.BackColor = Color.FromArgb(64, 64, 64)
        Label19.BackColor = Color.FromArgb(64, 64, 64)
        Label20.BackColor = Color.FromArgb(64, 64, 64)
        Label21.BackColor = Color.FromArgb(64, 64, 64)
        Label22.BackColor = Color.FromArgb(64, 64, 64)
        Label23.BackColor = Color.FromArgb(64, 64, 64)
        Label25.BackColor = Color.FromArgb(64, 64, 64)
        Label26.BackColor = Color.FromArgb(64, 64, 64)
        Label27.BackColor = Color.FromArgb(64, 64, 64)
        Label28.BackColor = Color.FromArgb(64, 64, 64)
        Label29.BackColor = Color.FromArgb(64, 64, 64)
        Label30.BackColor = Color.FromArgb(64, 64, 64)
        Label31.BackColor = Color.FromArgb(64, 64, 64)
        Label32.BackColor = Color.FromArgb(64, 64, 64)
        Label33.BackColor = Color.FromArgb(64, 64, 64)
        Label34.BackColor = Color.FromArgb(64, 64, 64)
        Label35.BackColor = Color.FromArgb(64, 64, 64)
        Label36.BackColor = Color.FromArgb(64, 64, 64)
        Label37.BackColor = Color.FromArgb(64, 64, 64)
        Label38.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch1.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch2.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch3.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch4.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch5.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch6.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch7.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch8.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch9.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch10.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch11.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch12.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch13.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch14.BackColor = Color.FromArgb(64, 64, 64)
        GunaGoogleSwitch15.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel1.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel2.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel3.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel4.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel5.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel6.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel7.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel8.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel9.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel10.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel11.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel12.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel14.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel15.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel16.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel17.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel18.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel19.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel20.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel21.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel22.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel23.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel24.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel25.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel26.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel27.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox4.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox5.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox6.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox7.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox8.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox9.BackColor = Color.FromArgb(64, 64, 64)
        PictureBox10.BackColor = Color.FromArgb(64, 64, 64)
        LinkLabel1.BackColor = Color.FromArgb(64, 64, 64)
        LinkLabel2.BackColor = Color.FromArgb(64, 64, 64)
        LinkLabel3.BackColor = Color.FromArgb(64, 64, 64)
        TextBox1.BackColor = Color.FromArgb(64, 64, 64)
        TextBox2.BackColor = Color.FromArgb(64, 64, 64)
        TextBox3.BackColor = Color.FromArgb(64, 64, 64)
        TextBox4.BackColor = Color.FromArgb(64, 64, 64)
        TextBox5.BackColor = Color.FromArgb(64, 64, 64)
        TextBox6.BackColor = Color.FromArgb(64, 64, 64)
        TextBox7.BackColor = Color.FromArgb(64, 64, 64)
        TextBox8.BackColor = Color.FromArgb(64, 64, 64)
        TextBox9.BackColor = Color.FromArgb(64, 64, 64)
        TextBox10.BackColor = Color.FromArgb(64, 64, 64)
        TextBox11.BackColor = Color.FromArgb(64, 64, 64)
        TextBox12.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox1.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox2.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox3.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox4.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox5.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox6.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox7.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox8.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox9.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox10.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox11.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox12.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox13.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox14.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox15.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox16.BackColor = Color.FromArgb(64, 64, 64)
        ComboBox18.BackColor = Color.FromArgb(64, 64, 64)
        ListBox1.BackColor = Color.FromArgb(64, 64, 64)
        ListBox2.BackColor = Color.FromArgb(64, 64, 64)
        ListBox3.BackColor = Color.FromArgb(64, 64, 64)
        ListBox4.BackColor = Color.FromArgb(64, 64, 64)
        ListBox5.BackColor = Color.FromArgb(64, 64, 64)
        ListBox6.BackColor = Color.FromArgb(64, 64, 64)
        Panel20.BackColor = Color.FromArgb(64, 64, 64)
        Label1.ForeColor = Color.White
        Label2.ForeColor = Color.White
        Label3.ForeColor = Color.White
        Label4.ForeColor = Color.White
        Label5.ForeColor = Color.White
        Label6.ForeColor = Color.White
        Label7.ForeColor = Color.White
        Label8.ForeColor = Color.White
        Label9.ForeColor = Color.White
        Label10.ForeColor = Color.White
        Label11.ForeColor = Color.White
        Label12.ForeColor = Color.White
        Label13.ForeColor = Color.White
        Label14.ForeColor = Color.White
        Label15.ForeColor = Color.White
        Label16.ForeColor = Color.White
        Label17.ForeColor = Color.White
        Label18.ForeColor = Color.White
        Label19.ForeColor = Color.White
        Label20.ForeColor = Color.White
        Label21.ForeColor = Color.White
        Label22.ForeColor = Color.White
        Label23.ForeColor = Color.White
        Label25.ForeColor = Color.White
        Label26.ForeColor = Color.White
        Label27.ForeColor = Color.White
        Label28.ForeColor = Color.White
        Label29.ForeColor = Color.White
        Label30.ForeColor = Color.White
        Label31.ForeColor = Color.White
        Label32.ForeColor = Color.White
        Label33.ForeColor = Color.White
        Label34.ForeColor = Color.White
        Label35.ForeColor = Color.White
        Label36.ForeColor = Color.White
        Label37.ForeColor = Color.White
        Label38.ForeColor = Color.White
        Label40.ForeColor = Color.White
        Label41.ForeColor = Color.White
        Label40.BackColor = Color.FromArgb(64, 64, 64)
        Label41.BackColor = Color.FromArgb(64, 64, 64)
        GunaLabel1.ForeColor = Color.White
        GunaLabel2.ForeColor = Color.White
        GunaLabel3.ForeColor = Color.White
        GunaLabel4.ForeColor = Color.White
        GunaLabel5.ForeColor = Color.White
        GunaLabel6.ForeColor = Color.White
        GunaLabel7.ForeColor = Color.White
        GunaLabel8.ForeColor = Color.White
        GunaLabel9.ForeColor = Color.White
        GunaLabel10.ForeColor = Color.White
        GunaLabel11.ForeColor = Color.White
        GunaLabel12.ForeColor = Color.White
        GunaLabel14.ForeColor = Color.White
        GunaLabel15.ForeColor = Color.White
        GunaLabel16.ForeColor = Color.White
        GunaLabel17.ForeColor = Color.White
        GunaLabel18.ForeColor = Color.White
        GunaLabel19.ForeColor = Color.White
        GunaLabel20.ForeColor = Color.White
        GunaLabel21.ForeColor = Color.White
        GunaLabel22.ForeColor = Color.White
        GunaLabel23.ForeColor = Color.White
        GunaLabel24.ForeColor = Color.White
        GunaLabel25.ForeColor = Color.White
        GunaLabel26.ForeColor = Color.White
        GunaLabel27.ForeColor = Color.White
        Button1.ForeColor = Color.White
        Button2.ForeColor = Color.White
        Button3.ForeColor = Color.White
        Button4.ForeColor = Color.White
        Button5.ForeColor = Color.White
        Button6.ForeColor = Color.White
        Button7.ForeColor = Color.White
        Button8.ForeColor = Color.White
        Button9.ForeColor = Color.White
        Button10.ForeColor = Color.White
        Button11.ForeColor = Color.White
        Button12.ForeColor = Color.White
        Button13.ForeColor = Color.White
        Button14.ForeColor = Color.White
        Button15.ForeColor = Color.White
        Button16.ForeColor = Color.White
        Button17.ForeColor = Color.White
        Button18.ForeColor = Color.White
        Button19.ForeColor = Color.White
        Button20.ForeColor = Color.White
        Button21.ForeColor = Color.White
        Button22.ForeColor = Color.White
        Button23.ForeColor = Color.White
        Button24.ForeColor = Color.White
        Button25.ForeColor = Color.White
        Button26.ForeColor = Color.White
        Button27.ForeColor = Color.White
        Button28.ForeColor = Color.White
        Button29.ForeColor = Color.White
        Button30.ForeColor = Color.White
        Button31.ForeColor = Color.White
        Button32.ForeColor = Color.White
        Button33.ForeColor = Color.White
        ListBox1.ForeColor = Color.White
        ListBox2.ForeColor = Color.White
        ListBox3.ForeColor = Color.White
        ListBox4.ForeColor = Color.White
        ListBox5.ForeColor = Color.White
        ListBox6.ForeColor = Color.White
        LinkLabel1.ForeColor = Color.White
        LinkLabel2.ForeColor = Color.White
        LinkLabel3.ForeColor = Color.White
        TextBox1.ForeColor = Color.White
        TextBox2.ForeColor = Color.White
        TextBox3.ForeColor = Color.White
        TextBox4.ForeColor = Color.White
        TextBox5.ForeColor = Color.White
        TextBox6.ForeColor = Color.White
        TextBox7.ForeColor = Color.White
        TextBox8.ForeColor = Color.White
        TextBox9.ForeColor = Color.White
        TextBox10.ForeColor = Color.White
        TextBox11.ForeColor = Color.White
        TextBox12.ForeColor = Color.White
        ComboBox1.ForeColor = Color.White
        ComboBox2.ForeColor = Color.White
        ComboBox3.ForeColor = Color.White
        ComboBox4.ForeColor = Color.White
        ComboBox5.ForeColor = Color.White
        ComboBox6.ForeColor = Color.White
        ComboBox7.ForeColor = Color.White
        ComboBox8.ForeColor = Color.White
        ComboBox9.ForeColor = Color.White
        ComboBox10.ForeColor = Color.White
        ComboBox11.ForeColor = Color.White
        ComboBox12.ForeColor = Color.White
        ComboBox13.ForeColor = Color.White
        ComboBox14.ForeColor = Color.White
        ComboBox15.ForeColor = Color.White
        ComboBox16.ForeColor = Color.White
        ComboBox18.ForeColor = Color.White
        CheckBox1.ForeColor = Color.White
        CheckBox2.ForeColor = Color.White
        CheckBox4.ForeColor = Color.White
        CheckBox5.ForeColor = Color.White
        CheckBox6.ForeColor = Color.White
        CheckBox13.ForeColor = Color.White
        CheckBox14.ForeColor = Color.White
        CheckBox15.ForeColor = Color.White
        CheckBox16.ForeColor = Color.White
        CheckBox17.ForeColor = Color.White
        CheckBox18.ForeColor = Color.White
        CheckBox19.ForeColor = Color.White
        CheckBox20.ForeColor = Color.White
        CheckBox21.ForeColor = Color.White
        CheckBox22.ForeColor = Color.White
        CheckBox24.ForeColor = Color.White
        CheckBox25.ForeColor = Color.White
        CheckBox26.ForeColor = Color.White
        LinkLabel1.LinkColor = Color.White
        LinkLabel2.LinkColor = Color.White
    End Sub
    Private Sub GunaGoogleSwitch15_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch15.CheckedChanged
        If GunaGoogleSwitch15.Checked = True Then
            GunaLabel27.Text = "Activer"
        Else
            GunaLabel27.Text = "Désactivée"
        End If
    End Sub

    Private Sub Timer6_Tick(sender As Object, e As EventArgs) Handles Timer6.Tick
        Timer6.Stop()
        If ergister2 = 1 Then

        Else
            Try
                Dim lines1() As String = File.ReadAllLines(cozip & "mail.txt")
                Dim Resultatbytes() As Byte = Convert.FromBase64String(lines1(0))
                Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
                Dim Crypto As New DESCryptoServiceProvider()
                Crypto.Key = keyBytes
                Crypto.IV = keyBytes
                Dim Icrypto As ICryptoTransform = Crypto.CreateDecryptor()
                Dim donné() As Byte = Icrypto.TransformFinalBlock(Resultatbytes, 0, Resultatbytes.Length)
                Dim maildcrypt = Encoding.UTF8.GetString(donné)
                Dim MyMailMessage As New MailMessage()
                Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
                Dim mail = maildcrypt
                Dim message = "Une nouvelle connexion à votre compte a été détecté !!! " & vbNewLine & vbNewLine & "IPV4/IPV6:" & MyIP & vbNewLine & vbNewLine & "nom de pc: " & My.Computer.Name & vbNewLine & vbNewLine & "OS (systeme dexploitation): " & My.Computer.Info.OSFullName & vbNewLine & vbNewLine & "Si vous n'être pas a l'origine de cette connection, merci de changer immédiatement votre mots de passe."

                MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
                MyMailMessage.To.Add(mail)
                MyMailMessage.Subject = ("nouvelle connexion")
                MyMailMessage.Body = (message)

                SMTPServer.Port = ("587") 'Port
                SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
                SMTPServer.EnableSsl = True

                SMTPServer.Send(MyMailMessage) 'Envoi

                ergister2 = 1
                finico()
            Catch ex As Exception
                Timer6.Start()
            End Try
        End If
    End Sub

    Private Sub Timer7_Tick(sender As Object, e As EventArgs) Handles Timer7.Tick
        Timer7.Stop()
        Try
            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
            Dim mail = TextBox6.Text & ComboBox10.Text
            Dim message = "Bonjour, " & TextBox4.Text & vbNewLine & vbNewLine & "Bienvenue sur lecteur média, vôtre compte a bien êtê créer !!! grâce à ce compte vous avez un drive est des fonctionnalités supplémentaires." & vbNewLine & vbNewLine & "vôtre nom d'utilisateur est: " & TextBox4.Text & vbNewLine & vbNewLine & "vôtre mots de passe est: " & TextBox5.Text & vbNewLine & vbNewLine & "lient de téléchargement du lecteur: " & vbNewLine & "http://lecteur-media.fr/" & vbNewLine & vbNewLine & "Vous pouvez retrouvez en pièce jointe vos code de récupération qui vous permettras de récuperer votre compte en cas de probléme." & vbNewLine & vbNewLine & "Nous vous souhaitons une bonne journée."
            MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("compte Lecteur média")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
            SMTPServer.EnableSsl = True

            Dim data = New Net.Mail.Attachment(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
            Dim data2 = New Net.Mail.Attachment(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
            Dim data3 = New Net.Mail.Attachment(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
            MyMailMessage.Attachments.Add(data)
            MyMailMessage.Attachments.Add(data2)
            MyMailMessage.Attachments.Add(data3)
            SMTPServer.Send(MyMailMessage) 'Envoi
            MyMailMessage.Attachments.Dispose()
        Catch ex As Exception
            Timer7.Start()
        End Try
        codecrypt()
    End Sub

    Private Sub ChromeButton2_Click(sender As Object, e As EventArgs) Handles ChromeButton2.Click
        If FolderBrowserDialog2.ShowDialog = 1 Then
            exporterconfig = FolderBrowserDialog2.SelectedPath
            Form175.ShowDialog()
        Else
            MsgBox("Merci de sélectionné un dossier de destination", MsgBoxStyle.Exclamation)
        End If
    End Sub

    Private Sub ChromeButton3_Click(sender As Object, e As EventArgs)
        If OpenFileDialog4.ShowDialog = 1 Then
            importconfig = OpenFileDialog4.FileName
            Form176.ShowDialog()
        Else
            MsgBox("Merci de sélectionnez un fichier", MsgBoxStyle.Exclamation)
        End If
    End Sub
    Private Sub Button25_Click(sender As Object, e As EventArgs) Handles Button25.Click
        Form177.ShowDialog()
    End Sub

    Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click
        Dim sw1 As New StreamWriter(fichierconfigbackup)
        sw1.WriteLine(0)
        sw1.Close()
        Button26.Visible = False
        Button31.Visible = False
        Button25.Text = "Configurer maintenant"
    End Sub

    Private Sub Button27_Click(sender As Object, e As EventArgs) Handles Button27.Click
        If ListBox5.Items.Count = 0 Then
            MsgBox("Aucun backup trouver", MsgBoxStyle.Exclamation)
        Else
            If ListBox5.SelectedItem = "" Then
                MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
            Else
                MsgBox("Cette opération va remettre la configuration de la sauvegarde", MsgBoxStyle.Information)
                Dim msg = MsgBox("Voulez-vous vraiment remettre la configuration ?", MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then
                    Dim sw2 As New StreamWriter(utilitairetemps)
                    sw2.WriteLine(1)
                    sw2.WriteLine(mesbacup & ListBox5.SelectedItem)
                    sw2.Close()
                    Form152.ShowDialog()
                Else

                End If
            End If
        End If
    End Sub

    Private Sub Button28_Click(sender As Object, e As EventArgs) Handles Button28.Click
        If ListBox5.Items.Count = 0 Then
            MsgBox("Aucun sauvegarde trouver", MsgBoxStyle.Exclamation)
        Else
            If ListBox5.SelectedItem = "" Then
                MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
            Else
                If FolderBrowserDialog3.ShowDialog = 1 Then
                    If File.Exists(FolderBrowserDialog3.SelectedPath & "\" & My.Computer.Name & " - " & ListBox5.SelectedItem) = True Then
                        MsgBox("La sauvegarde: " & ListBox5.SelectedItem & vbNewLine & "est déjà présente de le dossier sélectionner: " & FolderBrowserDialog3.SelectedPath, MsgBoxStyle.Exclamation)
                    Else
                        lisb5 = 1
                        BackgroundWorker1.RunWorkerAsync()
                        Form180.ShowDialog()
                    End If
                Else
                    MsgBox("Merci de sélectionner un dossier", MsgBoxStyle.Exclamation)
                End If
            End If
        End If
    End Sub

    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles Button29.Click
        If ListBox5.Items.Count = 0 Then
            MsgBox("Aucune sauvegarde trouver", MsgBoxStyle.Exclamation)
        Else
            If ListBox5.SelectedItem = "" Then
                MsgBox("Merci de sélectionner une sauvegarde", MsgBoxStyle.Exclamation)
            Else
                File.Delete(mesbacup & ListBox5.SelectedItem)

                MsgBox("La sauvegarde: " & ListBox5.SelectedItem & " a bien été supprimer", MsgBoxStyle.Information)

                ListBox5.Items.Clear()

                For Each fichier As String In IO.Directory.GetFiles(mesbacup)
                    Dim info As New IO.FileInfo(fichier)
                    ListBox5.Items.Add(info.Name)
                Next

            End If
        End If
    End Sub

    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles Button30.Click
        If ListBox5.Items.Count = 0 Then
            MsgBox("Aucune sauvegarde trouver", MsgBoxStyle.Exclamation)
        Else

            For Each fichier As String In IO.Directory.GetFiles(mesbacup)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(info.FullName)
            Next

            ListBox5.Items.Clear()

            MsgBox("Tous les sauvegardes ont bien été supprimer", MsgBoxStyle.Information)

        End If
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        FileCopy(mesbacup & ListBox5.SelectedItem, FolderBrowserDialog3.SelectedPath & "\" & My.Computer.Name & " - " & ListBox5.SelectedItem)
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        lisb5 = 0
        Form180.Close()
        MsgBox("Exportation terminer", MsgBoxStyle.Information)
    End Sub

    Private Sub BackgroundWorker2_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker2.DoWork
        Compression.ZipFile.ExtractToDirectory(mesbacup & ListBox5.SelectedItem, repertoire)
    End Sub

    Private Sub BackgroundWorker2_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
        lisb6 = 0
        MsgBox("Restauration terminer", MsgBoxStyle.Information)
        Form152.ShowDialog()
    End Sub

    Private Sub Button31_Click(sender As Object, e As EventArgs) Handles Button31.Click
        Dim msg = MsgBox("Voulez-vous vraiment sauvegarder Maintenant ?", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            Form182.ShowDialog()
        Else

        End If
    End Sub

    Private Sub ComboBox2_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedValueChanged
        If ComboBox2.SelectedItem = "Personnaliser" Then
            CheckBox2.Show()
            CheckBox4.Show()
        Else
            CheckBox2.Hide()
            CheckBox4.Hide()
        End If
    End Sub

    Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click
        If ListBox6.Items.Count = 0 Then
            MsgBox("Aucune version précédente trouvez", MsgBoxStyle.Critical)
        ElseIf ListBox6.Items.Count = 1 Then
            Dim msg = MsgBox("Voulez-vous vraiment revenir à la version précédente ?", MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                Dim dw9 As New StreamWriter(misajours & "appli.txt")
                dw9.WriteLine(My.Application.Info.DirectoryPath)
                dw9.Close()
                Dim dw10 As New StreamWriter(utilitairestemp)
                dw10.WriteLine(2)
                dw10.Close()
                FileCopy(My.Application.Info.DirectoryPath & "\utilitaires.exe", misajours & "utilitaires.exe")
                Process.Start(misajours & "utilitaires.exe")
                End
            Else

            End If
        End If
    End Sub

    Private Sub Button33_Click(sender As Object, e As EventArgs) Handles Button33.Click
        If ComboBox2.SelectedItem = "personnaliser" Then
            If CheckBox2.Checked = True And CheckBox4.Checked = False Then
                Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox2.Text, MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then
                    Timer1.Stop()
                    Timer3.Stop()
                    Timer4.Stop()
                    Timer5.Stop()
                    Timer6.Stop()
                    Timer7.Stop()
                    Timer8.Stop()
                    Timer11.Stop()
                    Timer12.Stop()
                    Timer13.Stop()
                    Timer15.Stop()
                    Timer16.Stop()
                    Form1.Timer1.Stop()
                    Form1.Timer2.Stop()
                    Form1.Timer3.Stop()
                    Form1.Timer4.Stop()
                    Form1.Timer5.Stop()
                    Form1.Timer6.Stop()
                    Form1.Timer7.Stop()
                    Form1.Timer11.Stop()
                    Form1.Timer13.Stop()
                    Form1.Timer14.Stop()
                    Form1.Timer15.Stop()
                    Form1.Timer16.Stop()
                    Form1.Timer17.Stop()
                    Form1.Timer18.Stop()
                    Form1.Timer19.Stop()
                    For Each fichier As String In IO.Directory.GetFiles(film)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(film)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(dossérie)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    MsgBox("La réinitialisation:" & CheckBox2.Text & " est terminer", MsgBoxStyle.Information)
                    Form152.ShowDialog()
                End If
            ElseIf CheckBox2.Checked = True And CheckBox4.Checked = True Then
                Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox2.Text & " " & CheckBox4.Text, MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then
                    Timer1.Stop()
                    Timer3.Stop()
                    Timer4.Stop()
                    Timer5.Stop()
                    Timer6.Stop()
                    Timer7.Stop()
                    Timer8.Stop()
                    Timer11.Stop()
                    Timer12.Stop()
                    Timer13.Stop()
                    Timer15.Stop()
                    Timer16.Stop()
                    Form1.Timer1.Stop()
                    Form1.Timer2.Stop()
                    Form1.Timer3.Stop()
                    Form1.Timer4.Stop()
                    Form1.Timer5.Stop()
                    Form1.Timer6.Stop()
                    Form1.Timer7.Stop()
                    Form1.Timer11.Stop()
                    Form1.Timer13.Stop()
                    Form1.Timer14.Stop()
                    Form1.Timer15.Stop()
                    Form1.Timer16.Stop()
                    Form1.Timer17.Stop()
                    Form1.Timer18.Stop()
                    Form1.Timer19.Stop()
                    For Each fichier1 As String In IO.Directory.GetDirectories(film)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(film)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(dossérie)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(radio)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(radio)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(dosplaylist)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    MsgBox("La réinitialisation:" & CheckBox2.Text & " " & CheckBox4.Text & " est terminer", MsgBoxStyle.Information)
                    Form152.ShowDialog()
                End If

            ElseIf CheckBox2.Checked = False And CheckBox4.Checked = True Then
                Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & CheckBox4.Text, MsgBoxStyle.YesNo)
                If msg = MsgBoxResult.Yes Then
                    Timer1.Stop()
                    Timer3.Stop()
                    Timer4.Stop()
                    Timer5.Stop()
                    Timer6.Stop()
                    Timer7.Stop()
                    Timer8.Stop()
                    Timer11.Stop()
                    Timer12.Stop()
                    Timer13.Stop()
                    Timer15.Stop()
                    Timer16.Stop()
                    Form1.Timer1.Stop()
                    Form1.Timer2.Stop()
                    Form1.Timer3.Stop()
                    Form1.Timer4.Stop()
                    Form1.Timer5.Stop()
                    Form1.Timer6.Stop()
                    Form1.Timer7.Stop()
                    Form1.Timer11.Stop()
                    Form1.Timer13.Stop()
                    Form1.Timer14.Stop()
                    Form1.Timer15.Stop()
                    Form1.Timer16.Stop()
                    Form1.Timer17.Stop()
                    Form1.Timer18.Stop()
                    Form1.Timer19.Stop()

                    For Each fichier1 As String In IO.Directory.GetDirectories(radio)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(radio)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next

                    For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
                        Dim info As New IO.FileInfo(fichier1)
                        Directory.Delete(fichier1, recursive:=True)
                    Next

                    For Each fichier As String In IO.Directory.GetFiles(dosplaylist)
                        Dim info As New IO.FileInfo(fichier)
                        File.Delete(fichier)
                    Next
                    MsgBox("La réinitialisation: " & CheckBox4.Text & " est terminer", MsgBoxStyle.Information)
                    Form152.ShowDialog()
                End If

            Else
                MsgBox("Merci de sélectionnez les donné à réinitialiser", MsgBoxStyle.Critical)
            End If
        Else
            Dim msg = MsgBox("Voulez-vous vraiment réinitialiser: " & ComboBox2.SelectedItem, MsgBoxStyle.YesNo)
            If msg = MsgBoxResult.Yes Then
                réinitialiser()
            End If
        End If
    End Sub
    Sub réinitialiser()
        Timer1.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Timer5.Stop()
        Timer6.Stop()
        Timer7.Stop()
        Timer8.Stop()
        Timer11.Stop()
        Timer12.Stop()
        Timer13.Stop()
        Timer15.Stop()
        Timer16.Stop()
        Form1.Timer1.Stop()
        Form1.Timer2.Stop()
        Form1.Timer3.Stop()
        Form1.Timer4.Stop()
        Form1.Timer5.Stop()
        Form1.Timer6.Stop()
        Form1.Timer7.Stop()
        Form1.Timer11.Stop()
        Form1.Timer13.Stop()
        Form1.Timer14.Stop()
        Form1.Timer15.Stop()
        Form1.Timer16.Stop()
        Form1.Timer17.Stop()
        Form1.Timer18.Stop()
        Form1.Timer19.Stop()

        If ComboBox2.SelectedItem = "Tout le lecteur média" Then
            For Each fichier As String In IO.Directory.GetFiles(repertoire)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

            For Each fichier1 As String In IO.Directory.GetDirectories(repertoire)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        ElseIf ComboBox2.SelectedItem = "Les films" Then
            For Each fichier As String In IO.Directory.GetFiles(film)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

            For Each fichier1 As String In IO.Directory.GetDirectories(film)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        ElseIf ComboBox2.SelectedItem = "Les séries" Then
            For Each fichier As String In IO.Directory.GetFiles(dossérie)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

            For Each fichier1 As String In IO.Directory.GetDirectories(dossérie)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        ElseIf ComboBox2.SelectedItem = "Les radios persos" Then
            For Each fichier As String In IO.Directory.GetFiles(radio)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

            For Each fichier1 As String In IO.Directory.GetDirectories(radio)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        ElseIf ComboBox2.SelectedItem = "Les configurations de lecteur média" Then
            For Each fichier As String In IO.Directory.GetFiles(repertoire)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

        ElseIf ComboBox2.SelectedItem = "Les dictées" Then
            For Each fichier As String In IO.Directory.GetFiles(discté)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next

            For Each fichier1 As String In IO.Directory.GetDirectories(discté)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        ElseIf ComboBox2.SelectedItem = "Les playlists" Then
            For Each fichier1 As String In IO.Directory.GetDirectories(dosplaylist)
                Dim info As New IO.FileInfo(fichier1)
                Directory.Delete(fichier1, recursive:=True)
            Next

        End If
        MsgBox("La réinitialisation:" & ComboBox2.SelectedItem & " est terminer", MsgBoxStyle.Information)
        Form152.ShowDialog()
    End Sub

    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            checkreini = checkreini + 1
        Else
            checkreini = checkreini - 1
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            checkreini = checkreini + 1
        Else
            checkreini = checkreini - 1
        End If
    End Sub

    Private Sub Timer17_Tick(sender As Object, e As EventArgs) Handles Timer17.Tick
        Timer17.Stop()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/info.txt")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            deco1a()
        Catch ex As Exception
            Timer17.Start()
        End Try
    End Sub

    Private Sub Timer20_Tick(sender As Object, e As EventArgs) Handles Timer20.Tick
        Try
            Dim ftreq2 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/co.txt")
            ftreq2.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq2.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp2 As FtpWebResponse = ftreq2.GetResponse
            deco2a()
        Catch ex As Exception
            Timer20.Start()
        End Try
    End Sub

    Private Sub Timer21_Tick(sender As Object, e As EventArgs) Handles Timer21.Tick
        Timer21.Stop()
        Try
            Dim ftreq3 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/index.php")
            ftreq3.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq3.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp3 As FtpWebResponse = ftreq3.GetResponse
            deco3a()
        Catch ex As Exception
            Timer21.Start()
        End Try
    End Sub

    Private Sub Timer22_Tick(sender As Object, e As EventArgs) Handles Timer22.Tick
        Timer22.Stop()
        Try
            Dim ftreq4 As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & Label21.Text & "/pc/" & My.Computer.Name & "/")
            ftreq4.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq4.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp4 As FtpWebResponse = ftreq4.GetResponse

        Catch ex As Exception
            Timer22.Start()
        End Try
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(fichier)
        Next
        decofini()
    End Sub

    Private Sub Timer27_Tick(sender As Object, e As EventArgs) Handles Timer27.Tick
        Timer27.Stop()
        Try
            Dim MyMailMessage As New MailMessage()
            Dim SMTPServer As New SmtpClient("mail48.lwspanel.com")
            Dim mail = "contact@lecteur-media.fr"
            Dim message = "le compte: " & Label21.Text & "souhaite supprimer son compte"

            MyMailMessage.From = New MailAddress("noreply@lecteur-media.fr")
            MyMailMessage.To.Add(mail)
            MyMailMessage.Subject = ("supprétion de compte")
            MyMailMessage.Body = (message)

            SMTPServer.Port = ("587") 'Port
            SMTPServer.Credentials = New System.Net.NetworkCredential("noreply@lecteur-media.fr", "pC1*zzU9-qtZjdT")
            SMTPServer.EnableSsl = True

            SMTPServer.Send(MyMailMessage) 'Envoi
            Me.Enabled = False
            Form1.deco()
            MsgBox("Un message a été envoyé au développer, votre compte: " & Label21.Text & " sera supprimer bienôt", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer27.Start()
        End Try
    End Sub
    Sub codecrypt()
        Dim lines1() As String = File.ReadAllLines(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
        Dim lines2() As String = File.ReadAllLines(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
        Dim lines3() As String = File.ReadAllLines(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
        Dim code1 As String = lines1(0)
        Dim code2 As String = lines2(0)
        Dim code3 As String = lines3(0)
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next

        Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(code1.ToString)
        Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto As New DESCryptoServiceProvider()
        Crypto.Key = keyBytes
        Crypto.IV = keyBytes
        Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
        Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
        Dim code1crypt = Convert.ToBase64String(Resultatbytes)

        Dim t1 = cozip & "code 1 de récupération " & TextBox4.Text & ".txt"
        Dim sw1 As New StreamWriter(cozip & "code 1 de récupération " & TextBox4.Text & ".txt")
        sw1.WriteLine(code1crypt)
        sw1.Close()

        Dim texteEnBytes2() As Byte = Encoding.UTF8.GetBytes(code2.ToString)
        Dim keyBytes2() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto2 As New DESCryptoServiceProvider()
        Crypto2.Key = keyBytes2
        Crypto2.IV = keyBytes2
        Dim Icrypto2 As ICryptoTransform = Crypto2.CreateEncryptor
        Dim Resultatbytes2() As Byte = Icrypto2.TransformFinalBlock(texteEnBytes2, 0, texteEnBytes2.Length)
        Dim code1crypt2 = Convert.ToBase64String(Resultatbytes2)

        Dim t2 = cozip & "code 2 de récupération " & TextBox4.Text & ".txt"
        Dim sw2 As New StreamWriter(cozip & "code 2 de récupération " & TextBox4.Text & ".txt")
        sw2.WriteLine(code1crypt2)
        sw2.Close()

        Dim texteEnBytes3() As Byte = Encoding.UTF8.GetBytes(code3.ToString)
        Dim keyBytes3() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
        Dim Crypto3 As New DESCryptoServiceProvider()
        Crypto3.Key = keyBytes3
        Crypto3.IV = keyBytes3
        Dim Icrypto3 As ICryptoTransform = Crypto3.CreateEncryptor
        Dim Resultatbytes3() As Byte = Icrypto3.TransformFinalBlock(texteEnBytes3, 0, texteEnBytes3.Length)
        Dim code1crypt3 = Convert.ToBase64String(Resultatbytes3)

        Dim t3 = cozip & "code 3 de récupération " & TextBox4.Text & ".txt"
        Dim sw3 As New StreamWriter(cozip & "code 3 de récupération " & TextBox4.Text & ".txt")
        sw3.WriteLine(code1crypt3)
        sw3.Close()

        upcode1()
    End Sub
    Sub upcode1()
        Try
            My.Computer.Network.UploadFile(cozip & "code 1 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 1 de récupération " & TextBox4.Text & ".txt")
            upcode2()
        Catch ex As Exception
            Timer28.Start()
        End Try
    End Sub
    Sub upcode2()
        Try
            My.Computer.Network.UploadFile(cozip & "code 2 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 2 de récupération " & TextBox4.Text & ".txt")
            upcode3()
        Catch ex As Exception
            Timer29.Start()
        End Try
    End Sub
    Sub upcode3()
        Try
            My.Computer.Network.UploadFile(cozip & "code 3 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 3 de récupération " & TextBox4.Text & ".txt")
            comptecréated()
        Catch ex As Exception
            Timer31.Start()
        End Try
    End Sub
    Sub comptecréated()
        Label17.Show()
        Label18.Show()
        TextBox7.Show()
        TextBox8.Show()
        Button12.Show()
        Button11.Show()
        Panel2.Hide()
        Panel1.Hide()
        TextBox5.Clear()
        TextBox6.Clear()
        TextBox12.Clear()
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(cozip & info.Name)
        Next
        Dim sw1 As New StreamWriter(dosparamètres & "/" & TextBox4.Text & ".txt")
        sw1.WriteLine(0)
        sw1.Close()
        My.Computer.Network.UploadFile(dosparamètres & "/" & TextBox4.Text & ".txt", ipserver & "/new/Utilisateur/" & TextBox4.Text & ".txt")
        File.Delete(dosparamètres & "/" & TextBox4.Text & ".txt")
        MsgBox("Le compte: " & TextBox4.Text & " a bien été créer", MsgBoxStyle.Information)
        TextBox4.Clear()
    End Sub

    Private Sub Timer28_Tick(sender As Object, e As EventArgs) Handles Timer28.Tick
        Timer28.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "code 1 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 1 de récupération " & TextBox4.Text & ".txt")
            upcode2()
        Catch ex As Exception
            Timer28.Start()
        End Try
    End Sub

    Private Sub Timer29_Tick(sender As Object, e As EventArgs) Handles Timer29.Tick
        Timer29.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "code 2 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 2 de récupération " & TextBox4.Text & ".txt")
            upcode3()
        Catch ex As Exception
            Timer29.Start()
        End Try
    End Sub

    Private Sub Timer31_Tick(sender As Object, e As EventArgs) Handles Timer31.Tick
        Timer31.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "code 3 de récupération " & TextBox4.Text & ".txt", ipserver & "/utilisateur/" & TextBox4.Text & "/code 3 de récupération " & TextBox4.Text & ".txt")
            comptecréated()
        Catch ex As Exception
            Timer31.Start()
        End Try
    End Sub

    Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Try
            If My.Computer.Network.Ping("google.com") = True Then
                coreco()
            Else
                MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
            End If
        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information)
        End Try
    End Sub
    Sub coreco()
        If TextBox7.Text = "" Then
            MsgBox("Merci d'entrer un nom utilisateur", MsgBoxStyle.Critical)
            Exit Sub
        Else
            Try
                Dim fwr As FtpWebRequest
                fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
                fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
                fwr.Method = WebRequestMethods.Ftp.ListDirectory
                Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

                Dim str As String = sr.ReadLine()
                While Not str Is Nothing

                    Directory.CreateDirectory(cozip & str)


                    str = sr.ReadLine()

                End While

                sr.Close()

                If Directory.Exists(cozip & TextBox7.Text) = True Then
                    For Each fichier As String In IO.Directory.GetDirectories(cozip)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(cozip & info.Name)
                    Next
                    coderec()
                Else
                    For Each fichier As String In IO.Directory.GetDirectories(cozip)
                        Dim info As New IO.FileInfo(fichier)
                        Directory.Delete(cozip & info.Name)
                    Next
                    MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
                End If
            Catch ex As Exception
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                MsgBox(ex.ToString)
            End Try
        End If
    End Sub
    Sub coderec()
        Form185.ShowDialog()
    End Sub

    Private Sub Timer9_Tick(sender As Object, e As EventArgs) Handles Timer9.Tick
        Timer9.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & TextBox4.Text) = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                MsgBox("Le nom: " & TextBox4.Text & " est déjà utiliser", MsgBoxStyle.Critical)
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                ftp()
            End If

        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
            Timer9.Start()
        End Try
    End Sub

    Private Sub Timer10_Tick(sender As Object, e As EventArgs) Handles Timer10.Tick
        Timer10.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp7()
        Catch ex As Exception
            Timer10.Start()
        End Try
    End Sub

    Private Sub Timer23_Tick(sender As Object, e As EventArgs) Handles Timer23.Tick
        Timer23.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/Dictée/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftppc()
        Catch ex As Exception
            Timer23.Start()
        End Try
    End Sub

    Private Sub Timer24_Tick(sender As Object, e As EventArgs) Handles Timer24.Tick
        Timer24.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox4.Text & "/pc/"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp3()
        Catch ex As Exception
            Timer24.Start()
        End Try
    End Sub

    Private Sub Timer25_Tick(sender As Object, e As EventArgs) Handles Timer25.Tick
        Timer25.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/" & "Dirve"), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            response.Close()
            ftp2()
        Catch ex As Exception
            Timer25.Start()
        End Try
    End Sub

    Private Sub Timer32_Tick(sender As Object, e As EventArgs) Handles Timer32.Tick
        Timer32.Stop()
        Try
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/dirve/" & "index.php")
            intexup3()
        Catch ex As Exception
            Timer32.Start()
        End Try
    End Sub

    Private Sub Timer34_Tick(sender As Object, e As EventArgs) Handles Timer34.Tick
        Timer34.Stop()
        Try
            My.Computer.Network.UploadFile(compte & "index.php", ipserver & "/Utilisateur/" & "/" & TextBox4.Text & "/pc/" & "index.php")
            File.Delete(compte & "index.php")
            File.Delete(compte & "photo.png")
            ft5()
        Catch ex As Exception
            Timer34.Start()
        End Try
    End Sub

    Private Sub Timer35_Tick(sender As Object, e As EventArgs) Handles Timer35.Tick
        Timer35.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & TextBox7.Text) = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                co2()
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
            End If

        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
            Timer35.Start()
        End Try
    End Sub

    Private Sub Timer36_Tick(sender As Object, e As EventArgs) Handles Timer36.Tick
        Timer36.Stop()
        Try
            Dim MaRequete As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name), System.Net.FtpWebRequest)
            Dim ftpStream As Stream = Nothing

            MaRequete.Credentials = New System.Net.NetworkCredential("yoannsafe", passftp)
            MaRequete.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

            Dim response As FtpWebResponse = CType(MaRequete.GetResponse, FtpWebResponse)
            ftpStream = response.GetResponseStream
            ftpStream.Close()
            co11()
        Catch ex As Exception
            Timer36.Start()
        End Try
    End Sub

    Private Sub Timer37_Tick(sender As Object, e As EventArgs) Handles Timer37.Tick
        Timer37.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "index.php", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/index.php")
            File.Delete(cozip & "index.php")
            co14()
        Catch ex As Exception
            Timer37.Start()
        End Try
    End Sub

    Private Sub Timer38_Tick(sender As Object, e As EventArgs) Handles Timer38.Tick
        Timer38.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "info.txt", ipserver & "/utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name & "/info.txt")
            File.Delete(cozip & "info.txt")
            co10()
        Catch ex As Exception
            Timer38.Start()
        End Try
    End Sub

    Private Sub Timer39_Tick(sender As Object, e As EventArgs) Handles Timer39.Tick
        Timer39.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)

                str = sr.ReadLine()

            End While
            co9b()
            sr.Close()

        Catch ex As Exception
            Timer39.Start()
        End Try
    End Sub

    Private Sub Timer40_Tick(sender As Object, e As EventArgs) Handles Timer40.Tick
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & My.Computer.Name)
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/" & TextBox7.Text & "/pc/" & str)
                ftreq.Method = WebRequestMethods.Ftp.DeleteFile
                ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
                Dim ftpresp As FtpWebResponse = ftreq.GetResponse

                str = sr.ReadLine()

            End While

            sr.Close()

            coco9b()

        Catch ex As Exception
            Timer40.Start()
        End Try
    End Sub

    Private Sub Timer41_Tick(sender As Object, e As EventArgs) Handles Timer41.Tick
        Timer41.Stop()
        Try
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/Utilisateur/" & TextBox7.Text & "/pc/" & My.Computer.Name)
            ftreq.Method = WebRequestMethods.Ftp.RemoveDirectory
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            co9a()
        Catch ex As Exception
            Timer41.Start()
        End Try
    End Sub

    Private Sub Button35_Click(sender As Object, e As EventArgs) Handles Button35.Click
        If OpenFileDialog5.ShowDialog = 1 Then
            GunaCirclePictureBox1.Image.Dispose()
            GunaCirclePictureBox1.Image = Image.FromFile(OpenFileDialog5.FileName)
            File.Delete(dosprofils & nomprofils & "\photo.png")
            GunaCirclePictureBox1.Image.Save(dosprofils & nomprofils & "\photo.png")
            MsgBox("Votre photo de profil a bien été changer", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub Button34_Click(sender As Object, e As EventArgs) Handles Button34.Click
        If changernomprof = 1 Then
            If TextBox13.Text = "" Then
                profilnomtemps = ""
                MsgBox("Merci d'entrer un nom", MsgBoxStyle.Exclamation)
            Else
                If Directory.Exists(dosprofils & TextBox13.Text & "/") = True Then
                    changernomprof = 0
                    TextBox13.Hide()
                    TextBox13.Clear()
                    profilnomtemps = ""
                    MsgBox("Le profil existe déjà merci d'entrer un autre nom", MsgBoxStyle.Exclamation)
                Else
                    Try
                        Directory.CreateDirectory(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
                        Directory.Delete(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
                        profilnomtemps = TextBox13.Text
                        changernomprof = 0
                        TextBox13.Hide()
                        TextBox13.Clear()
                        MsgBox("Merci de fermer les paramètres pour enregistrer votre nom", MsgBoxStyle.Information)
                    Catch ex As Exception
                        changernomprof = 0
                        TextBox13.Hide()
                        profilnomtemps = ""
                        MsgBox("Votre nom contient des caractère interdit", MsgBoxStyle.Exclamation)
                    End Try
                End If
            End If
        Else
            TextBox13.Show()
            changernomprof = 1
        End If
    End Sub

    Private Sub Button36_Click(sender As Object, e As EventArgs) Handles Button36.Click
        Form198.ShowDialog()
    End Sub

    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click
        Form199.ShowDialog()
    End Sub

    Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.CheckedChanged
        If CheckBox27.Checked = True Then
            Button38.Enabled = False
        Else
            If File.Exists(dosprofils & nomprofils & "\passe.txt") = True Then
                File.Delete(dosprofils & nomprofils & "\passe.txt")
                Button38.Enabled = True
            Else
                Button38.Enabled = True
            End If
        End If
    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles TextBox7.TextChanged
        If TextBox7.Text = "" Then
            Button11.Text = "Connection"
        Else
            Button11.Text = "Connection a: " & TextBox7.Text
        End If
    End Sub

    Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click
        If Button38.Text = "Modifier votre mots de passe" Then
            Form201.start = 1
            Form201.ShowDialog()
        Else
            Form201.ShowDialog()
        End If
    End Sub

    Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click
        profilnomtemps = ""
        File.Delete(dosprofils & nomprofils & "\passe.txt")
        Button38.Text = "Créer un mot de passe"
        CheckBox27.Enabled = True
        MsgBox("Le mot de passe a bien été supprimer", MsgBoxStyle.Information)
        Button39.Enabled = False
    End Sub

    Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click
        Form202.ShowDialog()
    End Sub

    Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click
        Form202.azerty = 1
        Form202.ShowDialog()
    End Sub

    Private Sub TextBox13_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox13.KeyDown
        If e.KeyValue = e.KeyData.Enter Then
            If changernomprof = 1 Then
                If TextBox13.Text = "" Then
                    profilnomtemps = ""
                    MsgBox("Merci d'entrer un nom", MsgBoxStyle.Exclamation)
                Else
                    If Directory.Exists(dosprofils & TextBox13.Text & "/") = True Then
                        changernomprof = 0
                        TextBox13.Hide()
                        TextBox13.Clear()
                        profilnomtemps = ""
                        MsgBox("Le profil existe déjà merci d'entrer un autre nom", MsgBoxStyle.Exclamation)
                    Else
                        Try
                            Directory.CreateDirectory(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
                            Directory.Delete(dosprofils & "/" & nomprofils & "/" & TextBox13.Text & "/")
                            profilnomtemps = TextBox13.Text
                            changernomprof = 0
                            TextBox13.Hide()
                            TextBox13.Clear()
                            MsgBox("Merci de fermer les paramètres pour enregistrer votre nom", MsgBoxStyle.Information)
                        Catch ex As Exception
                            changernomprof = 0
                            TextBox13.Hide()
                            profilnomtemps = ""
                            MsgBox("Votre nom contient des caractère interdit", MsgBoxStyle.Exclamation)
                        End Try
                    End If
                End If
            Else
                TextBox13.Show()
                changernomprof = 1
            End If
        End If
    End Sub

    Private Sub Label42_Click(sender As Object, e As EventArgs) Handles Label42.Click
        MsgBox(nomprofils, MsgBoxStyle.Information)
    End Sub

    Private Sub Timer14_Tick(sender As Object, e As EventArgs) Handles Timer14.Tick
        Timer14.Stop()
        Try
            If My.Computer.Network.Ping("google.fr") = True Then
                Dim maj As New WebClient
                Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                If vri = 1 Then
                    MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)

                    If profilnomtemps = "" Then

                    Else
                        Form1.Timer14.Stop()
                        My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                        nomprofils = profilnomtemps
                        Form152.ShowDialog()
                    End If
                    closea = 1
                    Close()
                Else
                    savessync2()
                End If
            Else
                MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
                If profilnomtemps = "" Then

                Else
                    Form1.Timer14.Stop()
                    My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                    nomprofils = profilnomtemps
                    Form152.ShowDialog()
                End If
                closea = 1
                Close()
            End If
        Catch ex As Exception
            Timer14.Start()
        End Try
    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged
        If TextBox4.Text = "" Then
            Button6.Text = "Créer le compte"
        Else
            Button6.Text = "Créer le compte: " & TextBox4.Text
        End If
    End Sub
    Sub Calculer_LaTaille_du_répértoire(ByVal MonChemin As String)

        Dim DossiersInfo As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(MonChemin)
        Dossiers = DossiersInfo.GetDirectories
        Fichiers = DossiersInfo.GetFiles
        'Parcourir Les Fichiers

        For Each Fichier As FileInfo In Fichiers
            'lire la taille du fichier (fileinfo) et la placer dans la variable v
            v += Fichier.Length

        Next
        'Parcourir les sous-répertoires
        For Each sousRepertoire As String In Directory.GetDirectories(MonChemin)

            'Appel de manière récursive 'Calculer_LaTaille_du_répértoire pour calculer la taille du contenu des sous répertoires.
            Calculer_LaTaille_du_répértoire(sousRepertoire)
        Next

    End Sub

    Private Sub Timer42_Tick(sender As Object, e As EventArgs) Handles Timer42.Tick
        Timer42.Stop()
        Try
            IO.Compression.ZipFile.CreateFromDirectory(cozip, compte & "co.zip")
            Dim FichierInfo As System.IO.FileInfo = New System.IO.FileInfo(compte & "co.zip")
            Dim TailleFichier As Integer = FichierInfo.Length
            If TailleFichier = 0 Then
                Timer42.Start()
            Else
                savessync3()
            End If
        Catch ex As Exception
            Timer42.Start()
        End Try
    End Sub

    Private Sub Timer43_Tick(sender As Object, e As EventArgs) Handles Timer43.Tick
        Timer43.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/mail.txt", cozip & "mail.txt")
        Catch ex As Exception
            Timer43.Start()
        End Try
        mail5()
    End Sub

    Private Sub Timer44_Tick(sender As Object, e As EventArgs) Handles Timer44.Tick
        Timer44.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/pass.txt", cozip & "pass.txt")
            Dim texteEnBytes() As Byte = Encoding.UTF8.GetBytes(TextBox8.Text)
            Dim keyBytes() As Byte = Encoding.UTF8.GetBytes("Jj@msms7")
            Dim Crypto As New DESCryptoServiceProvider()
            Crypto.Key = keyBytes
            Crypto.IV = keyBytes
            Dim Icrypto As ICryptoTransform = Crypto.CreateEncryptor
            Dim Resultatbytes() As Byte = Icrypto.TransformFinalBlock(texteEnBytes, 0, texteEnBytes.Length)
            Dim passecrypt = Convert.ToBase64String(Resultatbytes)

            Dim lines1() As String = File.ReadAllLines(cozip & "pass.txt")

            If lines1(0) = passecrypt Then
                co3()
            Else
                File.Delete(cozip & "pass.txt")
                passeincor += 1
                TextBox8.Clear()
                MsgBox("Mot de passe incorrect", MsgBoxStyle.Exclamation)
            End If
        Catch ex As Exception
            Timer44.Start()
        End Try
    End Sub

    Private Sub Timer45_Tick(sender As Object, e As EventArgs) Handles Timer45.Tick
        Timer45.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/vérification.txt", cozip & "vérification.txt")
            Dim lines() As String = File.ReadAllLines(cozip & "vérification.txt")
            If lines(0) = 1 Then
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = True
                Label32.Text = "Activer"
                chh2 = 0
                Form141.ShowDialog()
                Exit Sub
            Else
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = False
                Label32.Text = "Désactivée"
                chh2 = 0
                co7()
            End If
        Catch ex As Exception
            Timer45.Start()
        End Try
    End Sub

    Private Sub Timer46_Tick(sender As Object, e As EventArgs) Handles Timer46.Tick
        Timer46.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & TextBox7.Text & "/setting.txt", cozip & "setting.txt")
            Dim lines() As String = File.ReadAllLines(cozip & "setting.txt")
            If lines(0) = 1 Then
                chh = 1
                GunaGoogleSwitch6.Checked = True
                Label29.Text = "Activer"
                co6()
            Else
                chh = 2
                GunaGoogleSwitch6.Checked = False
                co6()
            End If
        Catch ex As Exception
            Timer46.Start()
        End Try
    End Sub

    Private Sub Timer57_Tick(sender As Object, e As EventArgs) Handles Timer57.Tick
        Timer57.Stop()
        Try
            My.Computer.Network.DownloadFile(ipserver & "/utilisateur/" & Label21.Text & "/setting.txt", cozip & "setting.txt")
            Dim lines10() As String = File.ReadAllLines(cozip & "setting.txt")

            If lines10(1) = 1 Then
                File.Delete(cozip & "setting.txt")
                Label29.Text = "Activer"
                chh = 1
                GunaGoogleSwitch6.Checked = True
            Else
                File.Delete(cozip & "setting.txt")
                Label29.Text = "Désactivée"
                chh = 2
                GunaGoogleSwitch6.Checked = False
            End If
            load8()
        Catch ex As Exception
            Timer57.Start()
        End Try
    End Sub

    Sub enrge()
        If ergister = 0 Then
            File.Delete(compte & "/co.zip")
            For Each fichier As String In IO.Directory.GetFiles(cozip)
                Dim info As New IO.FileInfo(fichier)
                File.Delete(fichier)
            Next
            PictureBox2.Image.Dispose()
            File.Delete(compte & "photo.png")
            ComboBox13.Items.Clear()
            ergister = 1
            MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
            closea = 1
            If profilnomtemps = "" Then

            Else
                Form1.Timer14.Stop()
                My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
                nomprofils = profilnomtemps
                Form152.ShowDialog()
            End If
            Close()
        Else
            Timer33.Stop()
        End If

    End Sub

    Private Sub Timer47_Tick(sender As Object, e As EventArgs) Handles Timer47.Tick
        Timer47.Stop()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & Label21.Text & "/vérification.txt", cozip & "vérification.txt")
            Dim lines11() As String = File.ReadAllLines(cozip & "vérification.txt")
            If lines11(0) = 1 And chh2 = 1 Then
                File.Delete(cozip & "vérification.txt")
                Label32.Text = "Activer"
                chh2 = 1
                GunaGoogleSwitch7.Checked = True
                chh2 = 0
            ElseIf lines11(0) = 0 Then
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = False
                Label32.Text = "Désactivée"
                chh2 = 0
            End If
            finiload()
        Catch ex As Exception
            Timer47.Start()
        End Try
    End Sub

    Private Sub Timer48_Tick(sender As Object, e As EventArgs) Handles Timer48.Tick
        Timer48.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
            File.Delete(cozip & "vérification.txt")
            MsgBox("La double vérifiation est activez", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer48.Start()
        End Try
    End Sub

    Private Sub Timer49_Tick(sender As Object, e As EventArgs) Handles Timer49.Tick
        Timer49.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "vérification.txt", ipserver & "utilisateur/" & Label21.Text & "/vérification.txt")
            File.Delete(cozip & "vérification.txt")
            MsgBox("La double vérification est désactiver", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer49.Start()
        End Try
    End Sub

    Private Sub Timer50_Tick(sender As Object, e As EventArgs) Handles Timer50.Tick
        Timer50.Stop()
        Try
            My.Computer.Network.UploadFile(cozip & "setting.txt", ipserver & "utilisateur/" & Label21.Text & "/setting.txt")
            File.Delete(cozip & "setting.txt")
            MsgBox("La synchronisation de l'historique est Désactivé", MsgBoxStyle.Information)
        Catch ex As Exception
            Timer50.Start()
        End Try
    End Sub

    Private Sub Timer51_Tick(sender As Object, e As EventArgs) Handles Timer51.Tick
        Timer51.Stop()
        Try
            Dim fwr As FtpWebRequest
            fwr = FtpWebRequest.Create(ipserver & "/" & "Utilisateur" & "/")
            fwr.Credentials = New NetworkCredential("yoannsafe", passftp)
            fwr.Method = WebRequestMethods.Ftp.ListDirectory
            Dim sr As New StreamReader(fwr.GetResponse().GetResponseStream())

            Dim str As String = sr.ReadLine()
            While Not str Is Nothing

                Directory.CreateDirectory(cozip & str)


                str = sr.ReadLine()

            End While

            sr.Close()

            If Directory.Exists(cozip & TextBox7.Text) = True Then
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                mail6()
            Else
                For Each fichier As String In IO.Directory.GetDirectories(cozip)
                    Dim info As New IO.FileInfo(fichier)
                    Directory.Delete(cozip & info.Name)
                Next
                MsgBox("Le compte: " & TextBox7.Text & " n'existe pas", MsgBoxStyle.Critical)
            End If
        Catch ex As Exception
            For Each fichier As String In IO.Directory.GetDirectories(cozip)
                Dim info As New IO.FileInfo(fichier)
                Directory.Delete(cozip & info.Name)
            Next
            Timer51.Start()
        End Try
    End Sub

    Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click
        If Button42.Text = "Activer" Then
            Form23.ShowDialog()
        Else
            Form24.opt = 1
            Form24.ShowDialog()
        End If
    End Sub

    Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click
        Form24.opt = 0
        Form24.ShowDialog()
    End Sub

    Sub savessync3()
        Try
            My.Computer.Network.UploadFile(compte & "co.zip", ipserver & "/utilisateur/" & Label21.Text & "/co.zip")
            savessync4()
        Catch ex As Exception
            Timer33.Start()
        End Try
    End Sub
    Sub savessync4()
        File.Delete(compte & "/co.zip")
        For Each fichier As String In IO.Directory.GetFiles(cozip)
            Dim info As New IO.FileInfo(fichier)
            File.Delete(fichier)
        Next
        PictureBox2.Image.Dispose()
        File.Delete(compte & "photo.png")
        ComboBox13.Items.Clear()
        MsgBox("Les paramètres ont bien été enregistrer", MsgBoxStyle.Information)
        closea = 1
        If profilnomtemps = "" Then

        Else
            Form1.Timer14.Stop()
            My.Computer.FileSystem.RenameDirectory(dosprofils & nomprofils, profilnomtemps)
            nomprofils = profilnomtemps
            Form152.ShowDialog()
        End If
        Close()
    End Sub

    Private Sub Button23_Click(sender As Object, e As EventArgs) Handles Button23.Click
        If OpenFileDialog6.ShowDialog = 1 Then
            PictureBox11.Image.Dispose()
            PictureBox11.Image = Image.FromFile(OpenFileDialog6.FileName)
            Form1.PictureBox2.Image.Dispose()
            If File.Exists(radio & ComboBox6.SelectedItem & "\photo.png") = True Then
                File.Delete(radio & ComboBox6.SelectedItem & "\photo.png")
                PictureBox11.Image.Save(radio & ComboBox6.SelectedItem & "\photo.png")
            Else
                PictureBox11.Image.Save(radio & ComboBox6.SelectedItem & "\photo.png")
            End If
            MsgBox("L'image de " & ComboBox6.SelectedText & " a bien été changer", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub PictureBox12_Click(sender As Object, e As EventArgs) Handles PictureBox12.Click
        If OpenFileDialog6.ShowDialog = 1 Then
            PictureBox12.Image = Image.FromFile(OpenFileDialog6.FileName)
        End If
    End Sub

    Private Sub Button44_Click(sender As Object, e As EventArgs) Handles Button44.Click
        Try
            If My.Computer.Network.Ping("www.google.com") Then
                Try
                    Dim maj As New WebClient
                    Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt")
                    If vri = 1 Then
                        MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server")
                    Else
                        radiostore.ShowDialog()
                    End If
                Catch ex As Exception
                    MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server")
                End Try
            End If

        Catch ex As Exception
            MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
        If ListBox1.SelectedItem = "" Then
            e.Cancel = True
        End If
    End Sub

    Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
        ChromeTabcontrol1.SelectedTab = Buckup
        ChromeTabcontrol4.SelectedTab = TabPage4
    End Sub

    Private Sub GunaGoogleSwitch16_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch16.CheckedChanged
        If GunaGoogleSwitch16.Checked = True Then
            Label61.Text = "Autorisée"
            If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") = True Then

            Else
                Directory.CreateDirectory(dosSYNC & "\compte\" & Label21.Text & "\")
            End If
        Else
            Label61.Text = "pas autorisée"
            If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") = True Then
                Directory.Delete(dosSYNC & "\compte\" & Label21.Text & "\")
            Else

            End If
        End If
    End Sub

    Sub load8()
        Try
            My.Computer.Network.DownloadFile(ipsite & "utilisateur/" & Label21.Text & "/vérification.txt", cozip & "vérification.txt")
            Dim lines11() As String = File.ReadAllLines(cozip & "vérification.txt")
            If lines11(0) = 1 Then
                File.Delete(cozip & "vérification.txt")
                Label32.Text = "Activer"
                chh2 = 1
                GunaGoogleSwitch7.Checked = True
                chh2 = 0
            ElseIf lines11(0) = 0 Then
                File.Delete(cozip & "vérification.txt")
                chh2 = 1
                GunaGoogleSwitch7.Checked = False
                Label32.Text = "Désactivée"
                chh2 = 0
            End If

            If vrportable = 1 Then

            Else
                If Directory.Exists(dosSYNC) = True Then
                    If Directory.Exists(dosSYNC & "\compte\" & Label21.Text & "\") Then
                        GunaGoogleSwitch16.Checked = True
                        Label61.Text = "Autorisée"
                    End If
                Else
                    Directory.CreateDirectory(dosSYNC & "\paramètre\")
                    Directory.CreateDirectory(dosSYNC & "\compte\")
                    Directory.CreateDirectory(dosSYNC & "\dossync\")
                End If
            End If

            finiload()
        Catch ex As Exception
            Timer47.Start()
        End Try
    End Sub

    Private Sub Button46_Click(sender As Object, e As EventArgs) Handles Button46.Click
        Dim msg = MsgBox("Voulez-vous importer un thème", MsgBoxStyle.YesNo)
        If msg = MsgBoxResult.Yes Then
            If OpenFileDialog7.ShowDialog = 1 Then
                Dim tt = OpenFileDialog7.SafeFileName.Replace("Théme - ", "")
                Dim tt2 = tt.Replace(".TLM", "")

                Try
                    Directory.CreateDirectory(dostheme & "\" & tt2 & "\")
                    IO.Compression.ZipFile.ExtractToDirectory(OpenFileDialog7.FileName, dostheme & "\" & tt2 & "\")
                    ComboBox3.Items.Add(tt2)
                    MsgBox("Le thème: " & tt2 & " a bien été ajouter", MsgBoxStyle.Information)
                Catch ex As Exception
                    MsgBox("Le thème est corrompu", MsgBoxStyle.Critical)
                End Try

            End If
        Else
            Form35.ShowDialog()
        End If
    End Sub

    Private Sub GunaGoogleSwitch17_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch17.CheckedChanged
        If GunaGoogleSwitch17.Checked = True Then
            GunaLabel13.Text = "Activer"
        Else
            GunaLabel13.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch18_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch18.CheckedChanged
        If GunaGoogleSwitch18.Checked = True Then
            GunaLabel29.Text = "Activer"
        Else
            GunaLabel29.Text = "Désactivée"
        End If
    End Sub

    Private Sub GunaGoogleSwitch19_CheckedChanged(sender As Object, e As EventArgs) Handles GunaGoogleSwitch19.CheckedChanged
        If GunaGoogleSwitch19.Checked = True And letterchange = 1 Then
            My.Computer.Network.DownloadFile(ipsite & "/utilisateur/" & Label21.Text & "/mail.txt", dosparamètres & "\mailtemps.txt")
            Dim lines1() As String = File.ReadAllLines(dosparamètres & "\mailtemps.txt")
            File.Delete(dosparamètres & "\mailtemps.txt")
            Dim sw1 As New StreamWriter(dosparamètres & "\" & Label21.Text & ".txt")
            sw1.WriteLine(lines1(0))
            sw1.Close()
            My.Computer.Network.UploadFile(dosparamètres & "\" & Label21.Text & ".txt", ipserver & "/newletter/" & Label21.Text & ".txt")
            File.Delete(dosparamètres & "\" & Label21.Text & ".txt")
            Label64.Text = "Oui"
            MsgBox("Vous recevrez tous les 1ers du mois à 15h00 les informations de Lecteur média.", MsgBoxStyle.Information)
        ElseIf GunaGoogleSwitch19.Checked = False And letterchange = 1 Then
            Dim ftreq As FtpWebRequest = FtpWebRequest.Create(ipserver & "/newletter/" & Label21.Text & ".txt")
            ftreq.Method = WebRequestMethods.Ftp.DeleteFile
            ftreq.Credentials = New NetworkCredential("yoannsafe", passftp)
            Dim ftpresp As FtpWebResponse = ftreq.GetResponse
            MsgBox("Vous ne recevrez plus les informations de Lecteur média.", MsgBoxStyle.Information)
            Label64.Text = "Non"
        End If
    End Sub

    Private Sub Button48_Click(sender As Object, e As EventArgs) Handles Button48.Click
        Form39.ShowDialog()
    End Sub

    Private Sub Button47_Click(sender As Object, e As EventArgs) Handles Button47.Click
        Dim nbt As Integer = 0
        For Each fichier As String In IO.Directory.GetDirectories(dostheme)
            Dim info As New IO.FileInfo(fichier)
            nbt = nbt + 1
        Next

        If nbt = 0 Then
            MsgBox("Aucun thèmes trouvez", MsgBoxStyle.Exclamation)
        Else
            Form36.ShowDialog()
        End If
    End Sub

    Public Class FolderSizeCalculator
        Public Shared Function GetFolderSize(ByVal folderPath As String) As Long
            Dim size As Long = 0
            Try
                Dim files As String() = Directory.GetFiles(folderPath, "*.*", SearchOption.AllDirectories)
                For Each file As String In files
                    Dim fileInfo As New FileInfo(file)
                    size += fileInfo.Length
                Next
            Catch ex As Exception
                ' Handle any exceptions that may occur
            End Try
            Return size
        End Function
    End Class
    Public Function func_RoundTaille(ByVal LaTaille As Long) As String
        Select Case LaTaille
            Case Is < 1024
                Return Round(LaTaille) & " Octets"
            Case Is < 1048576
                Return Round(LaTaille / 2 ^ 10, 3) & " Ko"
            Case Is < 1073741824
                Return Round(LaTaille / 2 ^ 20, 3) & " Mo"
            Case Else
                Return Round(LaTaille / 2 ^ 30, 3) & " Go"
        End Select
    End Function
End Class