Imports System.ComponentModel Imports System.IO Public Class Form8 Dim volumep As Integer Private Sub OuvrirUneMusiqueToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUneMusiqueToolStripMenuItem.Click Dim lines2() As String = File.ReadAllLines(notification) GunaMetroTrackBar1.Enabled = True AjoutterAuFavorisToolStripMenuItem.Enabled = True If lines2(0) = 1 Then ouvrirfr() ElseIf lines2(0) = 0 Then ouvrirn() End If End Sub Private Sub Form8_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.ForeColor = Color.White Button2.BackColor = Color.FromArgb(64, 64, 64) PictureBox1.BackColor = Color.FromArgb(64, 64, 64) PictureBox2.BackColor = Color.FromArgb(64, 64, 64) PictureBox3.BackColor = Color.FromArgb(64, 64, 64) PictureBox4.BackColor = Color.FromArgb(64, 64, 64) PictureBox5.BackColor = Color.FromArgb(64, 64, 64) Label1.ForeColor = Color.White Label1.BackColor = Color.FromArgb(64, 64, 64) GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.ForeColor = Color.White ComboBox1.BackColor = Color.FromArgb(64, 64, 64) ComboBox1.ForeColor = Color.White OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OurirLeOptionToolStripMenuItem.ForeColor = Color.White OptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OptionToolStripMenuItem.ForeColor = Color.White OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirUneMusiqueToolStripMenuItem.ForeColor = Color.White OurirLeOptionToolStripMenuItem.ForeColor = Color.White OurirLeOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AfficherLesFavorisToolStripMenuItem.ForeColor = Color.White FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) FenêtreToolStripMenuItem.ForeColor = Color.White MinimizerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MinimizerToolStripMenuItem.ForeColor = Color.White QuitterToolStripMenuItem.ForeColor = Color.White QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ToutQuiterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ToutQuiterToolStripMenuItem.ForeColor = Color.White MédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MédiaToolStripMenuItem.ForeColor = Color.White VolumeToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VolumeToolStripMenuItem.ForeColor = Color.White AjoutterAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjoutterAuFavorisToolStripMenuItem.ForeColor = Color.White InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) InformationDuMédiaToolStripMenuItem.ForeColor = Color.White PlayToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PlayToolStripMenuItem.ForeColor = Color.White PauseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PauseToolStripMenuItem.ForeColor = Color.White StopToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) StopToolStripMenuItem.ForeColor = Color.White VitesseToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VitesseToolStripMenuItem.ForeColor = Color.White AllerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AllerToolStripMenuItem.ForeColor = Color.White QuitteLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) QuitteLeMiniLecteurToolStripMenuItem.ForeColor = Color.White NormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) NormalToolStripMenuItem.ForeColor = Color.White AllerÀToolStripMenuItem.ForeColor = Color.White AllerÀToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceNormalToolStripMenuItem.ForeColor = Color.White AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AvanceRapiteToolStripMenuItem.ForeColor = Color.White MinutesToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) MinutesToolStripMenuItem1.ForeColor = Color.White MinutesToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64) MinutesToolStripMenuItem2.ForeColor = Color.White MinutesToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64) MinutesToolStripMenuItem3.ForeColor = Color.White MinutesToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64) MinutesToolStripMenuItem4.ForeColor = Color.White HeuresToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) HeuresToolStripMenuItem.ForeColor = Color.White MinutesToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MinutesToolStripMenuItem.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 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 ToolStripMenuItem102.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem102.ForeColor = Color.White ElseIf lines1a(0) = 3 Then PictureBox3.Image = Form1.PictureBox7.Image PlayToolStripMenuItem.Image = Form1.PictureBox7.Image PictureBox2.Image = Form1.PictureBox4.Image PauseToolStripMenuItem.Image = Form1.PictureBox4.Image PictureBox4.Image = Form1.PictureBox5.Image StopToolStripMenuItem.Image = Form1.PictureBox5.Image PictureBox5.Image = Form1.PictureBox8.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.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) GunaMetroTrackBar1.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) ComboBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ComboBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OurirLeOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OuvrirUneMusiqueToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OuvrirUneMusiqueToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OurirLeOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OurirLeOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AfficherLesFavorisToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AfficherLesFavorisToolStripMenuItem.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) MinimizerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinimizerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToutQuiterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToutQuiterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MédiaToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MédiaToolStripMenuItem.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) AjoutterAuFavorisToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AjoutterAuFavorisToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) InformationDuMédiaToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) InformationDuMédiaToolStripMenuItem.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) PauseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PauseToolStripMenuItem.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) VitesseToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) VitesseToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) AllerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AllerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) QuitteLeMiniLecteurToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) QuitteLeMiniLecteurToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) NormalToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) NormalToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) AllerÀToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) AllerÀToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AvanceNormalToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AvanceNormalToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) AvanceRapiteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AvanceRapiteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MinutesToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinutesToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MinutesToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinutesToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MinutesToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinutesToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MinutesToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinutesToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) HeuresToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) HeuresToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) MinutesToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinutesToolStripMenuItem.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) 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) ToolStripMenuItem102.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem102.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Else End If GunaMetroTrackBar1.Enabled = False Timer2.Start() ComboBox1.Items.Clear() ComboBox1.Items.Add("RFM") ComboBox1.Items.Add("RMC") ComboBox1.Items.Add("Chérie") ComboBox1.Items.Add("Nostalgie France") ComboBox1.Items.Add("NRJ France") ComboBox1.Items.Add("Rire & Chansons") ComboBox1.Items.Add("France Info") ComboBox1.Items.Add("Fun Radio France") ComboBox1.Items.Add("RTL") ComboBox1.Items.Add("Ouï FM") For Each fichier As String In IO.Directory.GetDirectories(radio) Dim info As New IO.FileInfo(fichier) ComboBox1.Items.Add(info.Name) Next TextBox1.Hide() Dim lines1() As String = File.ReadAllLines(settings2) If lines1(0) <> 0 Then AxWindowsMediaPlayer1.settings.volume = lines1(0) End If If lines1(1) = 1 Then Me.TopMost = True Else Me.TopMost = False End If If lines1(2) = 1 Then ComboBox1.Show() Else ComboBox1.Hide() End If PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = False PictureBox2.Enabled = True PictureBox3.Enabled = True PictureBox4.Enabled = True VitesseToolStripMenuItem.Enabled = False AllerToolStripMenuItem.Enabled = False Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox5.Hide() AxWindowsMediaPlayer1.enableContextMenu = False End Sub Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click AxWindowsMediaPlayer1.settings.volume = 1 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click AxWindowsMediaPlayer1.settings.volume = 2 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click AxWindowsMediaPlayer1.settings.volume = 3 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click AxWindowsMediaPlayer1.settings.volume = 4 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click AxWindowsMediaPlayer1.settings.volume = 5 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click AxWindowsMediaPlayer1.settings.volume = 6 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click AxWindowsMediaPlayer1.settings.volume = 7 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click AxWindowsMediaPlayer1.settings.volume = 8 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click AxWindowsMediaPlayer1.settings.volume = 9 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click AxWindowsMediaPlayer1.settings.volume = 10 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click AxWindowsMediaPlayer1.settings.volume = 11 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click AxWindowsMediaPlayer1.settings.volume = 12 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click AxWindowsMediaPlayer1.settings.volume = 13 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click AxWindowsMediaPlayer1.settings.volume = 14 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click AxWindowsMediaPlayer1.settings.volume = 15 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click AxWindowsMediaPlayer1.settings.volume = 16 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click AxWindowsMediaPlayer1.settings.volume = 17 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.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 = 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 = 20 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click AxWindowsMediaPlayer1.settings.volume = 21 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click AxWindowsMediaPlayer1.settings.volume = 22 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click AxWindowsMediaPlayer1.settings.volume = 23 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click AxWindowsMediaPlayer1.settings.volume = 24 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click AxWindowsMediaPlayer1.settings.volume = 25 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click AxWindowsMediaPlayer1.settings.volume = 26 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click AxWindowsMediaPlayer1.settings.volume = 27 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click AxWindowsMediaPlayer1.settings.volume = 28 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click AxWindowsMediaPlayer1.settings.volume = 29 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click AxWindowsMediaPlayer1.settings.volume = 30 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click AxWindowsMediaPlayer1.settings.volume = 31 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click AxWindowsMediaPlayer1.settings.volume = 32 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click AxWindowsMediaPlayer1.settings.volume = 33 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click AxWindowsMediaPlayer1.settings.volume = 34 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click AxWindowsMediaPlayer1.settings.volume = 35 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click AxWindowsMediaPlayer1.settings.volume = 36 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click AxWindowsMediaPlayer1.settings.volume = 37 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click AxWindowsMediaPlayer1.settings.volume = 38 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click AxWindowsMediaPlayer1.settings.volume = 39 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click AxWindowsMediaPlayer1.settings.volume = 40 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click AxWindowsMediaPlayer1.settings.volume = 41 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click AxWindowsMediaPlayer1.settings.volume = 42 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click AxWindowsMediaPlayer1.settings.volume = 43 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click AxWindowsMediaPlayer1.settings.volume = 44 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click AxWindowsMediaPlayer1.settings.volume = 45 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click AxWindowsMediaPlayer1.settings.volume = 46 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click AxWindowsMediaPlayer1.settings.volume = 47 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click AxWindowsMediaPlayer1.settings.volume = 48 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click AxWindowsMediaPlayer1.settings.volume = 49 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click AxWindowsMediaPlayer1.settings.volume = 50 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click AxWindowsMediaPlayer1.settings.volume = 51 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click AxWindowsMediaPlayer1.settings.volume = 52 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click AxWindowsMediaPlayer1.settings.volume = 53 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click AxWindowsMediaPlayer1.settings.volume = 54 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click AxWindowsMediaPlayer1.settings.volume = 55 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click AxWindowsMediaPlayer1.settings.volume = 56 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click AxWindowsMediaPlayer1.settings.volume = 57 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click AxWindowsMediaPlayer1.settings.volume = 58 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click AxWindowsMediaPlayer1.settings.volume = 59 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click AxWindowsMediaPlayer1.settings.volume = 60 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click AxWindowsMediaPlayer1.settings.volume = 61 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click AxWindowsMediaPlayer1.settings.volume = 62 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click AxWindowsMediaPlayer1.settings.volume = 63 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click AxWindowsMediaPlayer1.settings.volume = 64 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click AxWindowsMediaPlayer1.settings.volume = 65 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click AxWindowsMediaPlayer1.settings.volume = 66 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click AxWindowsMediaPlayer1.settings.volume = 67 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click AxWindowsMediaPlayer1.settings.volume = 68 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click AxWindowsMediaPlayer1.settings.volume = 69 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click AxWindowsMediaPlayer1.settings.volume = 70 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click AxWindowsMediaPlayer1.settings.volume = 71 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click AxWindowsMediaPlayer1.settings.volume = 72 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click AxWindowsMediaPlayer1.settings.volume = 73 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click AxWindowsMediaPlayer1.settings.volume = 74 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click AxWindowsMediaPlayer1.settings.volume = 75 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click AxWindowsMediaPlayer1.settings.volume = 76 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click AxWindowsMediaPlayer1.settings.volume = 77 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click AxWindowsMediaPlayer1.settings.volume = 78 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click AxWindowsMediaPlayer1.settings.volume = 79 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click AxWindowsMediaPlayer1.settings.volume = 80 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click AxWindowsMediaPlayer1.settings.volume = 81 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click AxWindowsMediaPlayer1.settings.volume = 82 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click AxWindowsMediaPlayer1.settings.volume = 83 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click AxWindowsMediaPlayer1.settings.volume = 84 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click AxWindowsMediaPlayer1.settings.volume = 85 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click AxWindowsMediaPlayer1.settings.volume = 86 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click AxWindowsMediaPlayer1.settings.volume = 87 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click AxWindowsMediaPlayer1.settings.volume = 88 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click AxWindowsMediaPlayer1.settings.volume = 89 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click AxWindowsMediaPlayer1.settings.volume = 90 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click AxWindowsMediaPlayer1.settings.volume = 91 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click AxWindowsMediaPlayer1.settings.volume = 92 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click AxWindowsMediaPlayer1.settings.volume = 93 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click AxWindowsMediaPlayer1.settings.volume = 94 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click AxWindowsMediaPlayer1.settings.volume = 95 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click AxWindowsMediaPlayer1.settings.volume = 96 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click AxWindowsMediaPlayer1.settings.volume = 97 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click AxWindowsMediaPlayer1.settings.volume = 98 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click AxWindowsMediaPlayer1.settings.volume = 99 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem102_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem102.Click AxWindowsMediaPlayer1.settings.volume = 100 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.volume = 0 Then PictureBox5.Show() End If 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 & "%" If AxWindowsMediaPlayer1.settings.volume = 0 Then PictureBox5.Show() Else PictureBox5.Hide() End If End Sub Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click AxWindowsMediaPlayer1.settings.mute = True PictureBox5.Show() End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click If AxWindowsMediaPlayer1.settings.mute = True Then AxWindowsMediaPlayer1.settings.mute = False AxWindowsMediaPlayer1.settings.volume = 1 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox5.Hide() Else AxWindowsMediaPlayer1.settings.mute = False AxWindowsMediaPlayer1.settings.volume = 1 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox5.Hide() End If End Sub Sub play() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then AxWindowsMediaPlayer1.Ctlcontrols.play() PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = True PictureBox2.Show() PictureBox3.Hide() ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then If TextBox1.Text = "RFM" Or TextBox1.Text = "RMC" Or TextBox1.Text = "Chérie" Or TextBox1.Text = "Nostalgie France" Or TextBox1.Text = "NRJ France" Or TextBox1.Text = "Rire & Chansons" Or TextBox1.Text = "France Info" Or TextBox1.Text = "Fun Radio France" Or TextBox1.Text = "RTL" Or TextBox1.Text = "Ouï FM" Or TextBox1.Text = "radio" Then AjoutterAuFavorisToolStripMenuItem.Enabled = False AxWindowsMediaPlayer1.Ctlcontrols.play() Timer2.Stop() GunaMetroTrackBar1.Value = 1 PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = True PictureBox2.Show() PictureBox3.Hide() End If AxWindowsMediaPlayer1.Ctlcontrols.play() PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = True PictureBox2.Show() PictureBox3.Hide() End If End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click play() End Sub Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click play() End Sub Sub pause() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then AxWindowsMediaPlayer1.Ctlcontrols.pause() PictureBox2.Hide() PictureBox3.Show() PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True End If End Sub Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click pause() End Sub Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click pause() End Sub Sub stop1() ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click stop1() End Sub Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click stop1() End Sub Private Sub QuitteLeMiniLecteurToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitteLeMiniLecteurToolStripMenuItem.Click ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList AxWindowsMediaPlayer1.Ctlcontrols.stop() Form1.Show() Me.Hide() End Sub Private Sub ToutQuiterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuiterToolStripMenuItem.Click Close() End Sub Private Sub MinimizerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimizerToolStripMenuItem.Click Me.WindowState = FormWindowState.Minimized End Sub Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem.Click Me.WindowState = FormWindowState.Normal End Sub Private Sub OurirLeOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OurirLeOptionToolStripMenuItem.Click Form9.ShowDialog() End Sub Private Sub ComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedValueChanged fr1() End Sub Sub fr1() Try If My.Computer.Network.Ping("www.Google.com") Then AjoutterAuFavorisToolStripMenuItem.Enabled = False radiofr() Timer2.Stop() GunaMetroTrackBar1.Value = 1 End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion") End Try End Sub Sub radiofr() Dim lines1() As String = File.ReadAllLines(notification) If lines1(0) = 1 Then radiofr2() ElseIf lines1(0) = 0 Then radiofr3() End If End Sub Private Sub AxWindowsMediaPlayer1_StatusChange(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.StatusChange If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then AjoutterAuFavorisToolStripMenuItem.Enabled = True Timer2.Start() PictureBox3.Show() PictureBox2.Hide() Me.Text = "Mini lecteur" End If End Sub Sub radiofr2() Dim sw4 As New StreamWriter(historique) If ComboBox1.SelectedItem = "RFM" Then AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3" Form1.ListBox1.Items.Add("RFM" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: RFM" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "RFM" TextBox1.Text = "RFM" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "RMC" Then AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3" Form1.ListBox1.Items.Add("RMC" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: RMC" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "RMC" TextBox1.Text = "RMC" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Chérie" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Chérie" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: Chérie" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "Chérie" TextBox1.Text = "Chérie" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Nostalgie France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: Nostalgie France" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "Nostalgie France" TextBox1.Text = "Nostalgie France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "NRJ France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("NRJ France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: NRJ France" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "NRJ France" TextBox1.Text = "NRJ France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Rire & Chansons" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: Rire & Chansons" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "Rire & Chansons" TextBox1.Text = "Rire & Chansons" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "France Info" Then AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3" Form1.ListBox1.Items.Add("France Info" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: France Info" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "France Info" TextBox1.Text = "France Info" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr/fun-1-48-192" Form1.ListBox1.Items.Add("Fun Radio France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: Fun Radio France" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "Fun Radio France" TextBox1.Text = "Fun Radio France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "RTL" Then AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl.fr/rtl-1-48-192" Form1.ListBox1.Items.Add("RTL" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: RTL" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "RTL" TextBox1.Text = "RTL" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Ouï FM" Then AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3" Form1.ListBox1.Items.Add("Ouï FM" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: Ouï FM" Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & "Ouï FM" TextBox1.Text = "Ouï FM" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True Else Dim t1 = radio Dim t2 = ComboBox1.SelectedItem Dim t3 = t1 & t2 & "\flux.txt" Dim lines1() As String = File.ReadAllLines(t3) AxWindowsMediaPlayer1.URL = lines1(0) Form1.ListBox1.Items.Add(ComboBox1.SelectedItem & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter: " & ComboBox1.SelectedItem Form1.NotifyIcon1.ShowBalloonTip(1) Me.Text = "lecteur média" & ": " & ComboBox1.SelectedItem TextBox1.Text = "radio" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True End If End Sub Sub radiofr3() Dim sw4 As New StreamWriter(historique) If ComboBox1.SelectedItem = "RFM" Then AxWindowsMediaPlayer1.URL = "https://ais-live.cloud-services.paris:8443/rfm.mp3" Form1.ListBox1.Items.Add("RFM" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "RFM" TextBox1.Text = "RFM" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "RMC" Then AxWindowsMediaPlayer1.URL = "http://audio.bfmtv.com/rmcradio_128.mp3" Form1.ListBox1.Items.Add("RMC" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "RMC" TextBox1.Text = "RMC" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Chérie" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30201/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Chérie" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "Chérie" TextBox1.Text = "Chérie" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Nostalgie France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30601/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Nostalgie France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "Nostalgie France" TextBox1.Text = "Nostalgie France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "NRJ France" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30001/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("NRJ France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "NRJ France" TextBox1.Text = "NRJ France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Rire & Chansons" Then AxWindowsMediaPlayer1.URL = "http://cdn.nrjaudio.fm/audio1/fr/30401/mp3_128.mp3?origine=fluxradios" Form1.ListBox1.Items.Add("Rire & Chansons" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "Rire & Chansons" TextBox1.Text = "Rire & Chansons" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "France Info" Then AxWindowsMediaPlayer1.URL = "http://direct.franceinfo.fr/live/franceinfo-midfi.mp3" Form1.ListBox1.Items.Add("France Info" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "France Info" TextBox1.Text = "France Info" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Fun Radio France" Then AxWindowsMediaPlayer1.URL = "http://streaming.radio.funradio.fr/fun-1-48-192" Form1.ListBox1.Items.Add("Fun Radio France" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "Fun Radio France" TextBox1.Text = "Fun Radio France" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "RTL" Then AxWindowsMediaPlayer1.URL = "http://streaming.radio.rtl.fr/rtl-1-48-192" Form1.ListBox1.Items.Add("RTL" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "RTL" TextBox1.Text = "RTL" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True ElseIf ComboBox1.SelectedItem = "Ouï FM" Then AxWindowsMediaPlayer1.URL = "http://ouifm.ice.infomaniak.ch/ouifm-high.mp3" Form1.ListBox1.Items.Add("Ouï FM" & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & "Ouï FM" TextBox1.Text = "Ouï FM" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True Else Dim t1 = radio Dim t2 = ComboBox1.SelectedItem Dim t3 = t1 & t2 & "\flux.txt" Dim lines1() As String = File.ReadAllLines(t3) AxWindowsMediaPlayer1.URL = lines1(0) Form1.ListBox1.Items.Add(ComboBox1.SelectedItem & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "lecteur média" & ": " & ComboBox1.SelectedItem TextBox1.Text = "radio" PictureBox3.Hide() PictureBox2.Show() PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True End If End Sub Private Sub AvanceRapiteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceRapiteToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.fastForward() End Sub Private Sub AvanceNormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AvanceNormalToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.play() End Sub Private Sub MinutesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 600 End Sub Private Sub MinutesToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem1.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1200 End Sub Private Sub MinutesToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem2.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 1800 End Sub Private Sub MinutesToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem3.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 2400 End Sub Private Sub MinutesToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles MinutesToolStripMenuItem4.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3000 End Sub Private Sub HeuresToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HeuresToolStripMenuItem.Click AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = 3600 End Sub Private Sub AllerÀToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AllerÀToolStripMenuItem.Click Form19.ShowDialog() End Sub Sub ouvrirfr() If OpenFileDialog1.ShowDialog = 1 Then ComboBox1.DropDownStyle = ComboBoxStyle.Simple ComboBox1.SelectedText = "" ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList Dim sw4 As New StreamWriter(historique) AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName TextBox1.Text = OpenFileDialog1.FileName PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PictureBox3.Hide() PictureBox2.Show() PictureBox2.Enabled = True PictureBox3.Enabled = True PictureBox4.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True Me.Text = "Mini lecteur" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) End If End Sub Sub ouvrirn() Dim sw4 As New StreamWriter(historique) If OpenFileDialog1.ShowDialog = 1 Then AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName TextBox1.Text = OpenFileDialog1.FileName PauseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True PictureBox3.Hide() PictureBox2.Show() PictureBox2.Enabled = True PictureBox3.Enabled = True PictureBox4.Enabled = True VitesseToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True Form1.ListBox1.Items.Add(AxWindowsMediaPlayer1.currentMedia.name & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Me.Text = "Mini lecteur" & ":" & " " & AxWindowsMediaPlayer1.currentMedia.name End If End Sub Private Sub InformationDuMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationDuMédiaToolStripMenuItem.Click Form68.ShowDialog() End Sub Private Sub AjoutterAuFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjoutterAuFavorisToolStripMenuItem.Click If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then Form90.ShowDialog() Else MsgBox("Vous n'avez rien lancer sur le lecteur", MsgBoxStyle.Information) End If End Sub Private Sub AfficherLesFavorisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfficherLesFavorisToolStripMenuItem.Click Form91.ShowDialog() End Sub Private Sub Form8_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 Form8_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 PauseToolStripMenuItem.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 PauseToolStripMenuItem.Enabled = False PictureBox3.Show() PictureBox2.Hide() Exit Sub End If End Sub End Class