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