Lecteur-media/lecteur/lecteur média/Form21.vb

Imports System.ComponentModel
Imports System.IO
Imports AxWMPLib
Imports System.Net

Public Class Form21
    Dim volumep As Integer
    Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged
        Dim sw4 As New StreamWriter(historique)
        PictureBox3.Focus()
        If ComboBox1.SelectedItem = "Dictée n° 1 - Niveau A1 (15 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 1 - Niveau A1 (15 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n° 2 - Niveau A2 (16 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 2 - Niveau A2 (16 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n° 3 - Niveau B1 (14 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 3 - Niveau B1 (14 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n° 4 - Niveau B2 (17 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 4 - Niveau B2 (17 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n° 5 - Niveau C1 (19 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 5 - Niveau C1 (19 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n° 6 - Niveau C2 (18 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n° 6 - Niveau C2 (18 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        ElseIf ComboBox1.SelectedItem = "Dictée n°7 - (13 minutes)" Then
            AxWindowsMediaPlayer1.URL = (Application.StartupPath & "\" & "Dictée n°7 - (13 minutes).mp3")
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        Else
            AxWindowsMediaPlayer1.URL = discté & ComboBox1.SelectedItem
            Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay)
            For Each item In Form1.ListBox1.Items
                sw4.WriteLine(item)
            Next
            sw4.Close()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        End If
    End Sub

    Private Sub QuitterDictéeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterDictéeToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Form1.Show()
        Me.Hide()
    End Sub

    Private Sub ToutQuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuitterToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click
        Me.WindowState = WindowState.Minimized
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        play()
    End Sub
    Sub play()
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
            AxWindowsMediaPlayer1.Ctlcontrols.play()
            PictureBox2.Show()
            PictureBox3.Hide()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            StopToolStripMenuItem.Enabled = True
        End If
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        pause()
    End Sub
    Sub pause()
        PlayToolStripMenuItem.Enabled = True
        PausseToolStripMenuItem.Enabled = False
        StopToolStripMenuItem.Enabled = True
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
        PictureBox3.Show()
        PictureBox2.Hide()
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        stope()
    End Sub
    Sub stope()
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        PictureBox3.Show()
        PictureBox2.Hide()
        PlayToolStripMenuItem.Enabled = True
        PausseToolStripMenuItem.Enabled = False
        StopToolStripMenuItem.Enabled = False
    End Sub

    Private Sub Form21_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim lines1a() As String = File.ReadAllLines(théme)

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.ForeColor = Color.White
            Button2.BackColor = Color.FromArgb(64, 64, 64)
            Button2.ForeColor = Color.White
            Label1.ForeColor = Color.White
            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)
            MenuStrip1.BackColor = Color.FromArgb(64, 64, 64)
            MenuStrip1.ForeColor = Color.White
            GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
            Label1.BackColor = Color.FromArgb(64, 64, 64)
            OuvrirLéditeurDeTexteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            OuvrirLéditeurDeTexteToolStripMenuItem.ForeColor = Color.White
            LireUnTexteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            LireUnTexteToolStripMenuItem.ForeColor = Color.White
            QuitterDictéeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            QuitterDictéeToolStripMenuItem.ForeColor = Color.White
            ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            ToutQuitterToolStripMenuItem.ForeColor = Color.White
            QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            QuitterToolStripMenuItem.ForeColor = Color.White
            AjouterUneDictéeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            AjouterUneDictéeToolStripMenuItem.ForeColor = Color.White
            PlayToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            PlayToolStripMenuItem.ForeColor = Color.White
            DictéToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            DictéToolStripMenuItem.ForeColor = Color.White
            SuppirmerUneDictéeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            SuppirmerUneDictéeToolStripMenuItem.ForeColor = Color.White
            PausseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            PausseToolStripMenuItem.ForeColor = Color.White
            StopToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            StopToolStripMenuItem.ForeColor = Color.White
            VolumeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            VolumeToolStripMenuItem.ForeColor = Color.White
            FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            FenêtreToolStripMenuItem.ForeColor = Color.White
            MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            MinimiserToolStripMenuItem.ForeColor = Color.White
            VolumeToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64)
            VolumeToolStripMenuItem1.ForeColor = Color.White
            VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            VolumeMuteToolStripMenuItem.ForeColor = Color.White
            A10ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A10ToolStripMenuItem.ForeColor = Color.White
            A20ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A20ToolStripMenuItem.ForeColor = Color.White
            A30ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A30ToolStripMenuItem.ForeColor = Color.White
            A40ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A40ToolStripMenuItem.ForeColor = Color.White
            A50ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A50ToolStripMenuItem.ForeColor = Color.White
            A60ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A60ToolStripMenuItem.ForeColor = Color.White
            A70ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A70ToolStripMenuItem.ForeColor = Color.White
            A80ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A80ToolStripMenuItem.ForeColor = Color.White
            A90ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A90ToolStripMenuItem.ForeColor = Color.White
            A100ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64)
            A100ToolStripMenuItem.ForeColor = Color.White
            ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem2.ForeColor = Color.White
            ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem3.ForeColor = Color.White
            ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem4.ForeColor = Color.White
            ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem5.ForeColor = Color.White
            ToolStripMenuItem6.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem6.ForeColor = Color.White
            ToolStripMenuItem7.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem7.ForeColor = Color.White
            ToolStripMenuItem8.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem8.ForeColor = Color.White
            ToolStripMenuItem9.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem9.ForeColor = Color.White
            ToolStripMenuItem10.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem10.ForeColor = Color.White
            ToolStripMenuItem11.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem11.ForeColor = Color.White
            ToolStripMenuItem12.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem12.ForeColor = Color.White
            ToolStripMenuItem13.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem13.ForeColor = Color.White
            ToolStripMenuItem14.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem14.ForeColor = Color.White
            ToolStripMenuItem15.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem15.ForeColor = Color.White
            ToolStripMenuItem16.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem16.ForeColor = Color.White
            ToolStripMenuItem17.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem17.ForeColor = Color.White
            ToolStripMenuItem18.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem18.ForeColor = Color.White
            ToolStripMenuItem19.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem19.ForeColor = Color.White
            ToolStripMenuItem20.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem20.ForeColor = Color.White
            ToolStripMenuItem21.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem21.ForeColor = Color.White
            ToolStripMenuItem22.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem22.ForeColor = Color.White
            ToolStripMenuItem23.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem23.ForeColor = Color.White
            ToolStripMenuItem24.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem24.ForeColor = Color.White
            ToolStripMenuItem25.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem25.ForeColor = Color.White
            ToolStripMenuItem26.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem26.ForeColor = Color.White
            ToolStripMenuItem27.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem27.ForeColor = Color.White
            ToolStripMenuItem28.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem28.ForeColor = Color.White
            ToolStripMenuItem29.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem29.ForeColor = Color.White
            ToolStripMenuItem30.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem30.ForeColor = Color.White
            ToolStripMenuItem31.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem31.ForeColor = Color.White
            ToolStripMenuItem32.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem32.ForeColor = Color.White
            ToolStripMenuItem33.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem33.ForeColor = Color.White
            ToolStripMenuItem34.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem34.ForeColor = Color.White
            ToolStripMenuItem35.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem35.ForeColor = Color.White
            ToolStripMenuItem36.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem36.ForeColor = Color.White
            ToolStripMenuItem37.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem37.ForeColor = Color.White
            ToolStripMenuItem38.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem38.ForeColor = Color.White
            ToolStripMenuItem39.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem39.ForeColor = Color.White
            ToolStripMenuItem40.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem40.ForeColor = Color.White
            ToolStripMenuItem41.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem41.ForeColor = Color.White
            ToolStripMenuItem42.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem42.ForeColor = Color.White
            ToolStripMenuItem43.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem43.ForeColor = Color.White
            ToolStripMenuItem44.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem44.ForeColor = Color.White
            ToolStripMenuItem45.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem45.ForeColor = Color.White
            ToolStripMenuItem46.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem46.ForeColor = Color.White
            ToolStripMenuItem47.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem47.ForeColor = Color.White
            ToolStripMenuItem48.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem48.ForeColor = Color.White
            ToolStripMenuItem49.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem49.ForeColor = Color.White
            ToolStripMenuItem50.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem50.ForeColor = Color.White
            ToolStripMenuItem51.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem51.ForeColor = Color.White
            ToolStripMenuItem52.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem52.ForeColor = Color.White
            ToolStripMenuItem53.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem53.ForeColor = Color.White
            ToolStripMenuItem54.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem54.ForeColor = Color.White
            ToolStripMenuItem55.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem55.ForeColor = Color.White
            ToolStripMenuItem56.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem56.ForeColor = Color.White
            ToolStripMenuItem57.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem57.ForeColor = Color.White
            ToolStripMenuItem58.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem58.ForeColor = Color.White
            ToolStripMenuItem59.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem59.ForeColor = Color.White
            ToolStripMenuItem60.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem60.ForeColor = Color.White
            ToolStripMenuItem61.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem61.ForeColor = Color.White
            ToolStripMenuItem62.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem62.ForeColor = Color.White
            ToolStripMenuItem63.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem63.ForeColor = Color.White
            ToolStripMenuItem64.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem64.ForeColor = Color.White
            ToolStripMenuItem65.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem65.ForeColor = Color.White
            ToolStripMenuItem66.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem66.ForeColor = Color.White
            ToolStripMenuItem67.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem67.ForeColor = Color.White
            ToolStripMenuItem68.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem68.ForeColor = Color.White
            ToolStripMenuItem69.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem69.ForeColor = Color.White
            ToolStripMenuItem70.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem70.ForeColor = Color.White
            ToolStripMenuItem71.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem71.ForeColor = Color.White
            ToolStripMenuItem72.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem72.ForeColor = Color.White
            ToolStripMenuItem73.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem73.ForeColor = Color.White
            ToolStripMenuItem74.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem74.ForeColor = Color.White
            ToolStripMenuItem75.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem75.ForeColor = Color.White
            ToolStripMenuItem76.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem76.ForeColor = Color.White
            ToolStripMenuItem77.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem77.ForeColor = Color.White
            ToolStripMenuItem78.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem78.ForeColor = Color.White
            ToolStripMenuItem79.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem79.ForeColor = Color.White
            ToolStripMenuItem80.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem80.ForeColor = Color.White
            ToolStripMenuItem81.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem81.ForeColor = Color.White
            ToolStripMenuItem82.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem82.ForeColor = Color.White
            ToolStripMenuItem83.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem83.ForeColor = Color.White
            ToolStripMenuItem84.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem84.ForeColor = Color.White
            ToolStripMenuItem85.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem85.ForeColor = Color.White
            ToolStripMenuItem86.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem86.ForeColor = Color.White
            ToolStripMenuItem87.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem87.ForeColor = Color.White
            ToolStripMenuItem88.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem88.ForeColor = Color.White
            ToolStripMenuItem89.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem89.ForeColor = Color.White
            ToolStripMenuItem90.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem90.ForeColor = Color.White
            ToolStripMenuItem91.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem91.ForeColor = Color.White
            ToolStripMenuItem92.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem92.ForeColor = Color.White
            ToolStripMenuItem93.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem93.ForeColor = Color.White
            ToolStripMenuItem94.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem94.ForeColor = Color.White
            ToolStripMenuItem95.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem95.ForeColor = Color.White
            ToolStripMenuItem96.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem96.ForeColor = Color.White
            ToolStripMenuItem97.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem97.ForeColor = Color.White
            ToolStripMenuItem98.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem98.ForeColor = Color.White
            ToolStripMenuItem99.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem99.ForeColor = Color.White
            ToolStripMenuItem100.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem100.ForeColor = Color.White
            ToolStripMenuItem101.BackColor = Color.FromArgb(64, 64, 64)
            ToolStripMenuItem101.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            PictureBox3.Image = Form1.PictureBox7.Image
            PlayToolStripMenuItem.Image = PictureBox3.Image
            PictureBox2.Image = Form1.PictureBox4.Image
            PausseToolStripMenuItem.Image = PictureBox2.Image
            PictureBox4.Image = Form1.PictureBox5.Image
            StopToolStripMenuItem.Image = PictureBox4.Image
            VolumeMuteToolStripMenuItem.Image = Form1.PictureBox8.Image
            GunaMetroTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            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)
            MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            MenuStrip1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            OuvrirLéditeurDeTexteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            OuvrirLéditeurDeTexteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            LireUnTexteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            LireUnTexteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            QuitterDictéeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            QuitterDictéeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToutQuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            AjouterUneDictéeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            AjouterUneDictéeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            PlayToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PlayToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            DictéToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            DictéToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            SuppirmerUneDictéeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            SuppirmerUneDictéeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            PausseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PausseToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            StopToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            StopToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            VolumeToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            VolumeToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            FenêtreToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            FenêtreToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            MinimiserToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            MinimiserToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            VolumeToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            VolumeToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            VolumeMuteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A10ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A10ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A20ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A20ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A30ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A30ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A40ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A40ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A50ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A50ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A60ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A60ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A70ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A70ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A80ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A80ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A90ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A90ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            A100ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            A100ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem48.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem49.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem50.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem51.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem52.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem53.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem54.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem55.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem56.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem57.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem58.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem59.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem59.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem60.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem61.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem62.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem63.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem64.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem65.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem66.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem66.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem67.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem67.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem68.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem68.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem69.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem69.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem70.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem70.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem71.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem71.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem72.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem72.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem73.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem73.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem74.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem74.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem75.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem75.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem76.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem76.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem77.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem77.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem78.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem78.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem79.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem79.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem80.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem80.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem81.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem81.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem82.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem82.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem83.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem83.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem84.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem84.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem85.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem85.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem86.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem86.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem87.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem87.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem88.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem88.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem89.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem89.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem90.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem90.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem91.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem91.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem92.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem92.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem93.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem93.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem94.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem94.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem95.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem95.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem96.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem96.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem97.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem97.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem98.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem98.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem99.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem99.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem100.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem100.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            ToolStripMenuItem101.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            ToolStripMenuItem101.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        Else

        End If

        Dim lines8() As String = File.ReadAllLines(ettt)
        If lines8(0) = 1 Then
            Process1.StartInfo.FileName = lines8(2)
        End If


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

        AxWindowsMediaPlayer1.settings.volume = 50
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
        PictureBox3.Show()
        PictureBox2.Hide()
        PlayToolStripMenuItem.Enabled = False
        PausseToolStripMenuItem.Enabled = False
        StopToolStripMenuItem.Enabled = False
    End Sub

    Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click
        play()
    End Sub

    Private Sub PausseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PausseToolStripMenuItem.Click
        pause()
    End Sub

    Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click
        stope()
    End Sub

    Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click
        AxWindowsMediaPlayer1.settings.mute = True
        Label1.Text = "volume" & ": " & "mute"
    End Sub

    Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
        AxWindowsMediaPlayer1.settings.volume = 1
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
        AxWindowsMediaPlayer1.settings.volume = 2
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
        AxWindowsMediaPlayer1.settings.volume = 3
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click
        AxWindowsMediaPlayer1.settings.volume = 4
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
        AxWindowsMediaPlayer1.settings.volume = 5
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
        AxWindowsMediaPlayer1.settings.volume = 6
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
        AxWindowsMediaPlayer1.settings.volume = 7
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click
        AxWindowsMediaPlayer1.settings.volume = 8
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click
        AxWindowsMediaPlayer1.settings.volume = 9
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click
        AxWindowsMediaPlayer1.settings.volume = 10
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click
        AxWindowsMediaPlayer1.settings.volume = 11
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click
        AxWindowsMediaPlayer1.settings.volume = 12
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click
        AxWindowsMediaPlayer1.settings.volume = 13
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click
        AxWindowsMediaPlayer1.settings.volume = 14
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click
        AxWindowsMediaPlayer1.settings.volume = 15
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click
        AxWindowsMediaPlayer1.settings.volume = 16
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click
        AxWindowsMediaPlayer1.settings.volume = 17
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click
        AxWindowsMediaPlayer1.settings.volume = 18
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click
        AxWindowsMediaPlayer1.settings.volume = 20
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click
        AxWindowsMediaPlayer1.settings.volume = 19
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click
        AxWindowsMediaPlayer1.settings.volume = 21
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click
        AxWindowsMediaPlayer1.settings.volume = 22
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click
        AxWindowsMediaPlayer1.settings.volume = 23
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click
        AxWindowsMediaPlayer1.settings.volume = 24
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click
        AxWindowsMediaPlayer1.settings.volume = 25
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click
        AxWindowsMediaPlayer1.settings.volume = 26
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click
        AxWindowsMediaPlayer1.settings.volume = 27
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click
        AxWindowsMediaPlayer1.settings.volume = 28
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click
        AxWindowsMediaPlayer1.settings.volume = 29
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click
        AxWindowsMediaPlayer1.settings.volume = 30
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click
        AxWindowsMediaPlayer1.settings.volume = 31
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click
        AxWindowsMediaPlayer1.settings.volume = 32
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click
        AxWindowsMediaPlayer1.settings.volume = 33
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click
        AxWindowsMediaPlayer1.settings.volume = 34
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click
        AxWindowsMediaPlayer1.settings.volume = 35
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click
        AxWindowsMediaPlayer1.settings.volume = 36
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click
        AxWindowsMediaPlayer1.settings.volume = 37
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click
        AxWindowsMediaPlayer1.settings.volume = 38
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click
        AxWindowsMediaPlayer1.settings.volume = 39
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click
        AxWindowsMediaPlayer1.settings.volume = 40
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click
        AxWindowsMediaPlayer1.settings.volume = 41
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click
        AxWindowsMediaPlayer1.settings.volume = 42
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click
        AxWindowsMediaPlayer1.settings.volume = 43
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click
        AxWindowsMediaPlayer1.settings.volume = 44
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click
        AxWindowsMediaPlayer1.settings.volume = 45
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click
        AxWindowsMediaPlayer1.settings.volume = 46
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click
        AxWindowsMediaPlayer1.settings.volume = 47
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click
        AxWindowsMediaPlayer1.settings.volume = 48
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click
        AxWindowsMediaPlayer1.settings.volume = 49
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click
        AxWindowsMediaPlayer1.settings.volume = 50
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click
        AxWindowsMediaPlayer1.settings.volume = 51
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click
        AxWindowsMediaPlayer1.settings.volume = 52
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click
        AxWindowsMediaPlayer1.settings.volume = 53
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click
        AxWindowsMediaPlayer1.settings.volume = 54
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click
        AxWindowsMediaPlayer1.settings.volume = 55
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click
        AxWindowsMediaPlayer1.settings.volume = 56
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click
        AxWindowsMediaPlayer1.settings.volume = 57
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click
        AxWindowsMediaPlayer1.settings.volume = 58
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click
        AxWindowsMediaPlayer1.settings.volume = 59
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click
        AxWindowsMediaPlayer1.settings.volume = 60
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click
        AxWindowsMediaPlayer1.settings.volume = 61
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click
        AxWindowsMediaPlayer1.settings.volume = 62
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click
        AxWindowsMediaPlayer1.settings.volume = 63
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click
        AxWindowsMediaPlayer1.settings.volume = 64
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click
        AxWindowsMediaPlayer1.settings.volume = 65
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click
        AxWindowsMediaPlayer1.settings.volume = 66
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click
        AxWindowsMediaPlayer1.settings.volume = 67
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click
        AxWindowsMediaPlayer1.settings.volume = 68
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click
        AxWindowsMediaPlayer1.settings.volume = 69
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click
        AxWindowsMediaPlayer1.settings.volume = 70
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click
        AxWindowsMediaPlayer1.settings.volume = 71
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click
        AxWindowsMediaPlayer1.settings.volume = 72
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click
        AxWindowsMediaPlayer1.settings.volume = 73
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click
        AxWindowsMediaPlayer1.settings.volume = 74
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click
        AxWindowsMediaPlayer1.settings.volume = 75
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click
        AxWindowsMediaPlayer1.settings.volume = 76
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click
        AxWindowsMediaPlayer1.settings.volume = 77
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click
        AxWindowsMediaPlayer1.settings.volume = 78
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click
        AxWindowsMediaPlayer1.settings.volume = 79
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click
        AxWindowsMediaPlayer1.settings.volume = 80
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click
        AxWindowsMediaPlayer1.settings.volume = 81
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click
        AxWindowsMediaPlayer1.settings.volume = 82
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click
        AxWindowsMediaPlayer1.settings.volume = 83
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click
        AxWindowsMediaPlayer1.settings.volume = 84
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click
        AxWindowsMediaPlayer1.settings.volume = 85
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click
        AxWindowsMediaPlayer1.settings.volume = 86
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click
        AxWindowsMediaPlayer1.settings.volume = 87
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click
        AxWindowsMediaPlayer1.settings.volume = 88
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click
        AxWindowsMediaPlayer1.settings.volume = 89
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click
        AxWindowsMediaPlayer1.settings.volume = 90
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click
        AxWindowsMediaPlayer1.settings.volume = 91
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click
        AxWindowsMediaPlayer1.settings.volume = 92
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click
        AxWindowsMediaPlayer1.settings.volume = 93
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click
        AxWindowsMediaPlayer1.settings.volume = 94
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click
        AxWindowsMediaPlayer1.settings.volume = 95
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click
        AxWindowsMediaPlayer1.settings.volume = 96
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click
        AxWindowsMediaPlayer1.settings.volume = 97
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click
        AxWindowsMediaPlayer1.settings.volume = 98
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click
        AxWindowsMediaPlayer1.settings.volume = 99
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click
        AxWindowsMediaPlayer1.settings.volume = 100
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        volumep = AxWindowsMediaPlayer1.settings.volume.ToString()
        volumep += 1
        AxWindowsMediaPlayer1.settings.volume = volumep
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        volumep = AxWindowsMediaPlayer1.settings.volume.ToString()
        volumep -= 1
        AxWindowsMediaPlayer1.settings.volume = volumep
        Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%"
        If AxWindowsMediaPlayer1.settings.mute = True Then
            Label1.Text = "volume" & ": " & "mute"
        End If
    End Sub

    Private Sub OuvrirLéditeurDeTexteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLéditeurDeTexteToolStripMenuItem.Click
        Try
            Process1.Start()
        Catch ex As Exception
            MsgBox("Impossible d'ouvrir l'éditeur par default. Vous prouvez changer le programme dans:" & vbNewLine & vbNewLine & "parramètre>avancer>éditeur de texte", MsgBoxStyle.Exclamation)
        End Try
    End Sub

    Private Sub LireUnTexteToolStripMenuItem_Click(sender As Object, e As EventArgs)
        Form28.ShowDialog()
    End Sub

    Private Sub LireUnTexteToolStripMenuItem_Click_1(sender As Object, e As EventArgs) Handles LireUnTexteToolStripMenuItem.Click
        Form28.ShowDialog()
    End Sub

    Private Sub Form21_Closed(sender As Object, e As EventArgs) Handles Me.Closed
        Dim dw8 As New StreamWriter(lançer)
        dw8.WriteLine(0)
        dw8.Close()
        Form1.NotifyIcon1.Visible = False
        End
    End Sub
    Private Sub AjouterUneDictéeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjouterUneDictéeToolStripMenuItem.Click
        Dim t1 = OpenFileDialog1
        Dim t2 = discté
        If OpenFileDialog1.ShowDialog = 1 Then
            Dim fi As New System.IO.FileInfo(OpenFileDialog1.FileName)
            Dim t7 = discté & fi.Name
            If File.Exists(t7) = True Then
                MsgBox("La dictée: " & fi.Name & " a été déjà ajoutée", MsgBoxStyle.Exclamation)
                Exit Sub
            Else
                FileCopy(OpenFileDialog1.FileName, discté & (fi.Name))
                MsgBox("La dictée: " & fi.Name & " a été ajoutée", MsgBoxStyle.Information)
                For Each fichier As String In IO.Directory.GetFiles(discté)
                    Dim info As New IO.FileInfo(fichier)
                    ComboBox1.Items.Remove(info.Name)
                Next

                For Each fichier As String In IO.Directory.GetFiles(discté)
                    Dim info As New IO.FileInfo(fichier)
                    ComboBox1.Items.Add(info.Name)
                Next
            End If
        End If
    End Sub

    Private Sub SuppirmerUneDictéeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SuppirmerUneDictéeToolStripMenuItem.Click
        Dim t70 = Directory.GetFiles(discté, "*.*", SearchOption.AllDirectories).Length
        If t70 = 0 Then
            MsgBox("Vous devez ajouter une dictée", MsgBoxStyle.Information)
            Exit Sub
        Else
            Form80.ShowDialog()
        End If
    End Sub

    Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
            PictureBox3.Show()
            PictureBox2.Hide()
            PlayToolStripMenuItem.Enabled = True
            PausseToolStripMenuItem.Enabled = False
        End If
    End Sub

    Private Sub Form21_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        Dim lines() As String = File.ReadAllLines(settings1)
        If BCstart = 1 Then
            e.Cancel = True
            MsgBox("Une sauvegarde est en cours merci de patienter...", MsgBoxStyle.Critical)
        Else
            If misdlno = 1 Then
                e.Cancel = True
                MsgBox("Une mise à jour est en cours de téléchargement" & vbNewLine & "merci de patienter", MsgBoxStyle.Exclamation)
            Else
                If opentchat = 1 Then
                    MsgBox("Merci de fermer le tchat", MsgBoxStyle.Information)
                    e.Cancel = True
                    Dim msg2 = MsgBox("Voulez-vous fermer le tchat ?", MsgBoxStyle.YesNo)
                    If msg2 = MsgBoxResult.Yes Then
                        tchat.Close()
                        Close()
                    Else
                        tchat.WindowState = FormWindowState.Normal
                        tchat.TopMost = True
                        tchat.TopMost = False
                    End If
                Else
                    If lines(4) = 1 Then
                        Dim msg = MsgBox("Voulez-vous vraiment quitter ?", MsgBoxStyle.YesNo)
                        If msg = MsgBoxResult.Yes Then
                            Dim dw8 As New StreamWriter(lançer)
                            dw8.WriteLine(0)
                            dw8.Close()
                            Form1.NotifyIcon1.Visible = False
                            fermature.Show()
                        Else
                            e.Cancel = True
                        End If
                    Else
                        Dim dw8 As New StreamWriter(lançer)
                        dw8.WriteLine(0)
                        dw8.Close()
                        Form1.NotifyIcon1.Visible = False
                        fermature.Show()
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            GunaMetroTrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
            GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
        Else
            GunaMetroTrackBar1.Value = 0
        End If
    End Sub

    Private Sub GunaMetroTrackBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles GunaMetroTrackBar1.Scroll
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = GunaMetroTrackBar1.Value
            GunaMetroTrackBar1.Maximum = AxWindowsMediaPlayer1.currentMedia.duration + 1
        Else
            GunaMetroTrackBar1.Value = 0
        End If
    End Sub

    Private Sub Form21_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            AxWindowsMediaPlayer1.Ctlcontrols.play()
            PlayToolStripMenuItem.Enabled = False
            PausseToolStripMenuItem.Enabled = True
            PictureBox3.Hide()
            PictureBox2.Show()
            Exit Sub
        End If

        If e.KeyData = Keys.Space And AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            AxWindowsMediaPlayer1.Ctlcontrols.pause()
            PlayToolStripMenuItem.Enabled = True
            PausseToolStripMenuItem.Enabled = False
            PictureBox3.Show()
            PictureBox2.Hide()
            Exit Sub
        End If
    End Sub

    Private Sub DictéToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DictéToolStripMenuItem.Click
        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
                    MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical)
                Else
                    Form150.ShowDialog()
                End If
            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 Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
        Timer3.Stop()
    End Sub
End Class