Imports System.ComponentModel Imports System.IO Imports System.Net Imports AxWMPLib Public Class Form12 Dim nom As String = "" Public volumep As Integer Public mp3s() As String Public index As Integer = 0 Private Sub OuvrirUnDosierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnDosierToolStripMenuItem.Click Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then ouvrirfr() ElseIf lines3(0) = 0 Then ouvrirnfr() End If End Sub Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then langfr2() ElseIf lines3(0) = 0 Then langfr5() End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then langfr() ElseIf lines3(0) = 0 Then langfr5() End If End Sub Private Sub ListBox1_DoubleClick(sender As Object, e As EventArgs) Handles ListBox1.DoubleClick Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then langfr3() ElseIf lines3(0) = 0 Then langfr6() End If End Sub Private Sub Form12_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim lines1a() As String = File.ReadAllLines(théme) If lines1a(0) = 2 Then PlaylistStoreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PlaylistStoreToolStripMenuItem.ForeColor = Color.White Me.BackColor = Color.FromArgb(64, 64, 64) ImporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ImporterUnePlaylistToolStripMenuItem.ForeColor = Color.White ExporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ExporterUnePlaylistToolStripMenuItem.ForeColor = Color.White PlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) PlaylistToolStripMenuItem.ForeColor = Color.White OuvrirUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirUnePlaylistToolStripMenuItem.ForeColor = Color.White CréerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) CréerToolStripMenuItem.ForeColor = Color.White ModifierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ModifierToolStripMenuItem.ForeColor = Color.White SupprimerToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) SupprimerToolStripMenuItem.ForeColor = Color.White AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.ForeColor = Color.White Label1.ForeColor = Color.White Button1.BackColor = Color.FromArgb(64, 64, 64) Button1.ForeColor = Color.White Button2.BackColor = Color.FromArgb(64, 64, 64) Button2.ForeColor = Color.White ListBox1.BackColor = Color.FromArgb(64, 64, 64) ListBox1.ForeColor = Color.White TextBox1.BackColor = Color.FromArgb(64, 64, 64) TextBox1.ForeColor = Color.White TextBox2.BackColor = Color.FromArgb(64, 64, 64) TextBox2.ForeColor = Color.White PictureBox1.BackColor = Color.FromArgb(64, 64, 64) GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64) FichierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) FichierToolStripMenuItem.ForeColor = Color.White OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White OptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OptionToolStripMenuItem.ForeColor = Color.White OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirLesOptionToolStripMenuItem.ForeColor = Color.White QuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) QuitterToolStripMenuItem.ForeColor = Color.White QuitterLaPlaylistToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) QuitterLaPlaylistToolStripMenuItem.ForeColor = Color.White ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) ToutQuitterToolStripMenuItem.ForeColor = Color.White FenêtreToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) FenêtreToolStripMenuItem.ForeColor = Color.White AgrnadireToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) AgrnadireToolStripMenuItem.ForeColor = Color.White NormalToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) NormalToolStripMenuItem.ForeColor = Color.White MinimiserToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MinimiserToolStripMenuItem.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 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 OuvrirUnDosierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) OuvrirUnDosierToolStripMenuItem.ForeColor = Color.White FichierToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) MenuStrip1.BackColor = Color.FromArgb(64, 64, 64) PictureBox1.BackColor = Color.FromArgb(64, 64, 64) PictureBox3.BackColor = Color.FromArgb(64, 64, 64) PictureBox4.BackColor = Color.FromArgb(64, 64, 64) PictureBox5.BackColor = Color.FromArgb(64, 64, 64) PictureBox6.BackColor = Color.FromArgb(64, 64, 64) Label1.BackColor = Color.FromArgb(64, 64, 64) Label1.ForeColor = Color.White VolumeToolStripMenuItem1.BackColor = Color.FromArgb(64, 64, 64) VolumeToolStripMenuItem1.ForeColor = Color.White VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) VolumeMuteToolStripMenuItem.ForeColor = Color.White A10ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A10ToolStripMenuItem.ForeColor = Color.White A20ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A20ToolStripMenuItem.ForeColor = Color.White A30ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A30ToolStripMenuItem.ForeColor = Color.White A40ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A40ToolStripMenuItem.ForeColor = Color.White A50ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A50ToolStripMenuItem.ForeColor = Color.White A60ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A60ToolStripMenuItem.ForeColor = Color.White A70ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A70ToolStripMenuItem.ForeColor = Color.White A80ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A80ToolStripMenuItem.ForeColor = Color.White A90ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A90ToolStripMenuItem.ForeColor = Color.White A100ToolStripMenuItem.BackColor = Color.FromArgb(64, 64, 64) A100ToolStripMenuItem.ForeColor = Color.White ToolStripMenuItem2.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem2.ForeColor = Color.White ToolStripMenuItem3.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem3.ForeColor = Color.White ToolStripMenuItem4.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem4.ForeColor = Color.White ToolStripMenuItem5.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem5.ForeColor = Color.White ToolStripMenuItem6.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem6.ForeColor = Color.White ToolStripMenuItem7.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem7.ForeColor = Color.White ToolStripMenuItem8.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem8.ForeColor = Color.White ToolStripMenuItem9.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem9.ForeColor = Color.White ToolStripMenuItem10.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem10.ForeColor = Color.White ToolStripMenuItem11.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem11.ForeColor = Color.White ToolStripMenuItem12.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem12.ForeColor = Color.White ToolStripMenuItem13.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem13.ForeColor = Color.White ToolStripMenuItem14.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem14.ForeColor = Color.White ToolStripMenuItem15.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem15.ForeColor = Color.White ToolStripMenuItem16.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem16.ForeColor = Color.White ToolStripMenuItem17.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem17.ForeColor = Color.White ToolStripMenuItem18.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem18.ForeColor = Color.White ToolStripMenuItem19.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem19.ForeColor = Color.White ToolStripMenuItem20.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem20.ForeColor = Color.White ToolStripMenuItem21.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem21.ForeColor = Color.White ToolStripMenuItem22.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem22.ForeColor = Color.White ToolStripMenuItem23.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem23.ForeColor = Color.White ToolStripMenuItem24.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem24.ForeColor = Color.White ToolStripMenuItem25.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem25.ForeColor = Color.White ToolStripMenuItem26.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem26.ForeColor = Color.White ToolStripMenuItem27.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem27.ForeColor = Color.White ToolStripMenuItem28.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem28.ForeColor = Color.White ToolStripMenuItem29.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem29.ForeColor = Color.White ToolStripMenuItem30.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem30.ForeColor = Color.White ToolStripMenuItem31.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem31.ForeColor = Color.White ToolStripMenuItem32.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem32.ForeColor = Color.White ToolStripMenuItem33.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem33.ForeColor = Color.White ToolStripMenuItem34.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem34.ForeColor = Color.White ToolStripMenuItem35.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem35.ForeColor = Color.White ToolStripMenuItem36.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem36.ForeColor = Color.White ToolStripMenuItem37.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem37.ForeColor = Color.White ToolStripMenuItem38.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem38.ForeColor = Color.White ToolStripMenuItem39.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem39.ForeColor = Color.White ToolStripMenuItem40.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem40.ForeColor = Color.White ToolStripMenuItem41.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem41.ForeColor = Color.White ToolStripMenuItem42.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem42.ForeColor = Color.White ToolStripMenuItem43.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem43.ForeColor = Color.White ToolStripMenuItem44.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem44.ForeColor = Color.White ToolStripMenuItem45.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem45.ForeColor = Color.White ToolStripMenuItem46.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem46.ForeColor = Color.White ToolStripMenuItem47.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem47.ForeColor = Color.White ToolStripMenuItem48.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem48.ForeColor = Color.White ToolStripMenuItem49.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem49.ForeColor = Color.White ToolStripMenuItem50.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem50.ForeColor = Color.White ToolStripMenuItem51.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem51.ForeColor = Color.White ToolStripMenuItem52.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem52.ForeColor = Color.White ToolStripMenuItem53.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem53.ForeColor = Color.White ToolStripMenuItem54.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem54.ForeColor = Color.White ToolStripMenuItem55.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem55.ForeColor = Color.White ToolStripMenuItem56.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem56.ForeColor = Color.White ToolStripMenuItem57.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem57.ForeColor = Color.White ToolStripMenuItem58.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem58.ForeColor = Color.White ToolStripMenuItem59.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem59.ForeColor = Color.White ToolStripMenuItem60.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem60.ForeColor = Color.White ToolStripMenuItem61.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem61.ForeColor = Color.White ToolStripMenuItem62.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem62.ForeColor = Color.White ToolStripMenuItem63.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem63.ForeColor = Color.White ToolStripMenuItem64.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem64.ForeColor = Color.White ToolStripMenuItem65.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem65.ForeColor = Color.White ToolStripMenuItem66.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem66.ForeColor = Color.White ToolStripMenuItem67.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem67.ForeColor = Color.White ToolStripMenuItem68.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem68.ForeColor = Color.White ToolStripMenuItem69.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem69.ForeColor = Color.White ToolStripMenuItem70.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem70.ForeColor = Color.White ToolStripMenuItem71.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem71.ForeColor = Color.White ToolStripMenuItem72.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem72.ForeColor = Color.White ToolStripMenuItem73.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem73.ForeColor = Color.White ToolStripMenuItem74.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem74.ForeColor = Color.White ToolStripMenuItem75.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem75.ForeColor = Color.White ToolStripMenuItem76.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem76.ForeColor = Color.White ToolStripMenuItem77.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem77.ForeColor = Color.White ToolStripMenuItem78.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem78.ForeColor = Color.White ToolStripMenuItem79.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem79.ForeColor = Color.White ToolStripMenuItem80.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem80.ForeColor = Color.White ToolStripMenuItem81.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem81.ForeColor = Color.White ToolStripMenuItem82.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem82.ForeColor = Color.White ToolStripMenuItem83.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem83.ForeColor = Color.White ToolStripMenuItem84.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem84.ForeColor = Color.White ToolStripMenuItem85.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem85.ForeColor = Color.White ToolStripMenuItem86.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem86.ForeColor = Color.White ToolStripMenuItem87.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem87.ForeColor = Color.White ToolStripMenuItem88.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem88.ForeColor = Color.White ToolStripMenuItem89.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem89.ForeColor = Color.White ToolStripMenuItem90.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem90.ForeColor = Color.White ToolStripMenuItem91.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem91.ForeColor = Color.White ToolStripMenuItem92.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem92.ForeColor = Color.White ToolStripMenuItem93.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem93.ForeColor = Color.White ToolStripMenuItem94.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem94.ForeColor = Color.White ToolStripMenuItem95.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem95.ForeColor = Color.White ToolStripMenuItem96.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem96.ForeColor = Color.White ToolStripMenuItem97.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem97.ForeColor = Color.White ToolStripMenuItem98.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem98.ForeColor = Color.White ToolStripMenuItem99.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem99.ForeColor = Color.White ToolStripMenuItem100.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem100.ForeColor = Color.White ToolStripMenuItem101.BackColor = Color.FromArgb(64, 64, 64) ToolStripMenuItem101.ForeColor = Color.White PictureBox7.BackColor = Color.FromArgb(64, 64, 64) PictureBox8.BackColor = Color.FromArgb(64, 64, 64) ElseIf lines1a(0) = 3 Then PictureBox4.Image = Form1.PictureBox7.Image PlayToolStripMenuItem.Image = Form1.PictureBox7.Image PictureBox3.Image = Form1.PictureBox4.Image PauseToolStripMenuItem.Image = Form1.PictureBox4.Image PictureBox5.Image = Form1.PictureBox5.Image StopToolStripMenuItem.Image = Form1.PictureBox5.Image PictureBox6.Image = Form1.PictureBox8.Image VolumeMuteToolStripMenuItem.Image = Form1.PictureBox8.Image PictureBox7.Image = Form1.GunaAdvenceButton2.Image PictureBox8.Image = Form1.GunaAdvenceButton1.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) PlaylistStoreToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PlaylistStoreToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ImporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ImporterUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ExporterUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ExporterUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) PlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OuvrirUnePlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OuvrirUnePlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) CréerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) CréerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ModifierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ModifierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) SupprimerToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) SupprimerToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ListBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ListBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) TextBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) TextBox2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) FichierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) FichierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OuvrirLesOptionToolStripMenuItem.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) OuvrirLesOptionToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OuvrirLesOptionToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) QuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) QuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) QuitterLaPlaylistToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) QuitterLaPlaylistToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToutQuitterToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToutQuitterToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) 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) AgrnadireToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) AgrnadireToolStripMenuItem.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) MinimiserToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MinimiserToolStripMenuItem.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) 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) OuvrirUnDosierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) OuvrirUnDosierToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) FichierToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) MenuStrip1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) VolumeToolStripMenuItem1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) VolumeToolStripMenuItem1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) VolumeMuteToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) VolumeMuteToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A10ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A10ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A20ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A20ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A30ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A30ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A40ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A40ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A50ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A50ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A60ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A60ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A70ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A70ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A80ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A80ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A90ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A90ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) A100ToolStripMenuItem.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) A100ToolStripMenuItem.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem4.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem5.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem6.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem7.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem8.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem9.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem9.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem10.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem10.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem11.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem11.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem12.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem12.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem13.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem13.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem14.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem14.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem15.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem15.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem16.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem16.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem17.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem17.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem18.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem18.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem19.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem19.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem20.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem20.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem21.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem21.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem22.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem22.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem23.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem23.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem24.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem24.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem25.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem25.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem26.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem26.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem27.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem27.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem28.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem28.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem29.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem29.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem30.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem30.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem31.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem31.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem32.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem32.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem33.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem33.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem34.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem34.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem35.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem35.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem36.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem36.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem37.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem37.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem38.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem38.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem39.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem39.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem40.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem40.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem41.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem41.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem42.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem42.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem43.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem43.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem44.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem44.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem45.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem45.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem46.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem46.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem47.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem47.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem48.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem48.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem49.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem49.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem50.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem50.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem51.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem51.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem52.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem52.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem53.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem53.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem54.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem54.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem55.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem55.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem56.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem56.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem57.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem57.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem58.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem58.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem59.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem59.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem60.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem60.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem61.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem61.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem62.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem62.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem63.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem63.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem64.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem64.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem65.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem65.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem66.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem66.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem67.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem67.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem68.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem68.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem69.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem69.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem70.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem70.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem71.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem71.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem72.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem72.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem73.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem73.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem74.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem74.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem75.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem75.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem76.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem76.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem77.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem77.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem78.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem78.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem79.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem79.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem80.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem80.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem81.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem81.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem82.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem82.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem83.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem83.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem84.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem84.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem85.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem85.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem86.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem86.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem87.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem87.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem88.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem88.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem89.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem89.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem90.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem90.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem91.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem91.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem92.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem92.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem93.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem93.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem94.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem94.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem95.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem95.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem96.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem96.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem97.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem97.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem98.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem98.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem99.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem99.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem100.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem100.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) ToolStripMenuItem101.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) ToolStripMenuItem101.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB) PictureBox7.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) PictureBox8.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB) Else End If PictureBox6.Hide() PictureBox3.Hide() TextBox2.Hide() AxWindowsMediaPlayer1.enableContextMenu = False Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PlayToolStripMenuItem.Enabled = False PauseToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = False AllerToolStripMenuItem.Enabled = False VitesseToolStripMenuItem.Enabled = False Dim lines() As String = File.ReadAllLines(settings3) If lines(0) <> 0 Then AxWindowsMediaPlayer1.settings.volume = lines(0) Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End If If lines(1) = 1 Then TextBox1.Show() Else TextBox1.Hide() End If If lines(2) = 1 Then ListBox1.Show() Else ListBox1.Hide() End If If lines(3) = 1 Then TopMost = True Else TopMost = False End If End Sub Private Sub QuitterLaPlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles QuitterLaPlaylistToolStripMenuItem.Click Dim sw4 As New StreamWriter(historique) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() AxWindowsMediaPlayer1.Ctlcontrols.stop() Form1.Show() Me.Hide() End Sub Private Sub ToutQuitterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ToutQuitterToolStripMenuItem.Click Form1.NotifyIcon1.Visible = False Me.Close() End Sub Private Sub AgrnadireToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgrnadireToolStripMenuItem.Click Me.WindowState = WindowState.Maximized End Sub Private Sub NormalToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NormalToolStripMenuItem.Click Me.WindowState = WindowState.Normal End Sub Private Sub MinimiserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MinimiserToolStripMenuItem.Click Me.WindowState = WindowState.Minimized End Sub Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click AxWindowsMediaPlayer1.settings.volume = 1 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click AxWindowsMediaPlayer1.settings.volume = 2 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem4_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click AxWindowsMediaPlayer1.settings.volume = 3 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem5_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem5.Click AxWindowsMediaPlayer1.settings.volume = 4 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click AxWindowsMediaPlayer1.settings.volume = 5 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click AxWindowsMediaPlayer1.settings.volume = 6 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem8_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click AxWindowsMediaPlayer1.settings.volume = 7 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem9_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem9.Click AxWindowsMediaPlayer1.settings.volume = 8 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem10_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem10.Click AxWindowsMediaPlayer1.settings.volume = 9 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem11_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem11.Click AxWindowsMediaPlayer1.settings.volume = 10 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem12_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem12.Click AxWindowsMediaPlayer1.settings.volume = 11 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem13_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem13.Click AxWindowsMediaPlayer1.settings.volume = 12 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem14_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem14.Click AxWindowsMediaPlayer1.settings.volume = 13 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem15_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem15.Click AxWindowsMediaPlayer1.settings.volume = 14 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem16_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem16.Click AxWindowsMediaPlayer1.settings.volume = 15 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem17_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem17.Click AxWindowsMediaPlayer1.settings.volume = 16 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem18_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem18.Click AxWindowsMediaPlayer1.settings.volume = 17 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem19_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem19.Click AxWindowsMediaPlayer1.settings.volume = 18 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem20_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem20.Click AxWindowsMediaPlayer1.settings.volume = 19 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem21_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem21.Click AxWindowsMediaPlayer1.settings.volume = 20 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem22_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem22.Click AxWindowsMediaPlayer1.settings.volume = 21 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem23_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem23.Click AxWindowsMediaPlayer1.settings.volume = 22 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem24_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem24.Click AxWindowsMediaPlayer1.settings.volume = 23 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem25_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem25.Click AxWindowsMediaPlayer1.settings.volume = 24 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem26_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem26.Click AxWindowsMediaPlayer1.settings.volume = 25 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem27_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem27.Click AxWindowsMediaPlayer1.settings.volume = 26 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem28_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem28.Click AxWindowsMediaPlayer1.settings.volume = 27 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem29_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem29.Click AxWindowsMediaPlayer1.settings.volume = 28 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem30_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem30.Click AxWindowsMediaPlayer1.settings.volume = 29 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem31_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem31.Click AxWindowsMediaPlayer1.settings.volume = 30 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem32_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem32.Click AxWindowsMediaPlayer1.settings.volume = 31 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem33_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem33.Click AxWindowsMediaPlayer1.settings.volume = 32 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem34_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem34.Click AxWindowsMediaPlayer1.settings.volume = 33 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem35_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem35.Click AxWindowsMediaPlayer1.settings.volume = 34 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem36_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem36.Click AxWindowsMediaPlayer1.settings.volume = 35 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem37_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem37.Click AxWindowsMediaPlayer1.settings.volume = 36 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem38_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem38.Click AxWindowsMediaPlayer1.settings.volume = 37 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem39_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem39.Click AxWindowsMediaPlayer1.settings.volume = 38 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem40_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem40.Click AxWindowsMediaPlayer1.settings.volume = 39 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem41_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem41.Click AxWindowsMediaPlayer1.settings.volume = 40 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem42_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem42.Click AxWindowsMediaPlayer1.settings.volume = 41 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem43_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem43.Click AxWindowsMediaPlayer1.settings.volume = 42 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem44_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem44.Click AxWindowsMediaPlayer1.settings.volume = 43 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem45_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem45.Click AxWindowsMediaPlayer1.settings.volume = 44 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem46_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem46.Click AxWindowsMediaPlayer1.settings.volume = 45 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem47_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem47.Click AxWindowsMediaPlayer1.settings.volume = 46 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem48_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem48.Click AxWindowsMediaPlayer1.settings.volume = 47 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem49_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem49.Click AxWindowsMediaPlayer1.settings.volume = 48 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem50_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem50.Click AxWindowsMediaPlayer1.settings.volume = 49 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem51_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem51.Click AxWindowsMediaPlayer1.settings.volume = 50 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem52_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem52.Click AxWindowsMediaPlayer1.settings.volume = 51 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem53_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem53.Click AxWindowsMediaPlayer1.settings.volume = 52 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem54_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem54.Click AxWindowsMediaPlayer1.settings.volume = 53 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem55_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem55.Click AxWindowsMediaPlayer1.settings.volume = 54 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem56_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem56.Click AxWindowsMediaPlayer1.settings.volume = 55 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem57_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem57.Click AxWindowsMediaPlayer1.settings.volume = 56 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem58_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem58.Click AxWindowsMediaPlayer1.settings.volume = 57 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem59_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem59.Click AxWindowsMediaPlayer1.settings.volume = 58 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem60_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem60.Click AxWindowsMediaPlayer1.settings.volume = 59 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem61_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem61.Click AxWindowsMediaPlayer1.settings.volume = 60 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem62_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem62.Click AxWindowsMediaPlayer1.settings.volume = 61 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem63_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem63.Click AxWindowsMediaPlayer1.settings.volume = 62 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem64_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem64.Click AxWindowsMediaPlayer1.settings.volume = 63 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem65_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem65.Click AxWindowsMediaPlayer1.settings.volume = 64 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem66_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem66.Click AxWindowsMediaPlayer1.settings.volume = 65 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem67_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem67.Click AxWindowsMediaPlayer1.settings.volume = 66 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem68_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem68.Click AxWindowsMediaPlayer1.settings.volume = 67 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem69_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem69.Click AxWindowsMediaPlayer1.settings.volume = 68 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem70_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem70.Click AxWindowsMediaPlayer1.settings.volume = 69 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem71_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem71.Click AxWindowsMediaPlayer1.settings.volume = 70 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem72_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem72.Click AxWindowsMediaPlayer1.settings.volume = 71 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem73_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem73.Click AxWindowsMediaPlayer1.settings.volume = 72 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem74_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem74.Click AxWindowsMediaPlayer1.settings.volume = 73 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem75_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem75.Click AxWindowsMediaPlayer1.settings.volume = 74 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem76_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem76.Click AxWindowsMediaPlayer1.settings.volume = 75 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem77_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem77.Click AxWindowsMediaPlayer1.settings.volume = 76 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem78_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem78.Click AxWindowsMediaPlayer1.settings.volume = 77 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem79_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem79.Click AxWindowsMediaPlayer1.settings.volume = 78 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem80_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem80.Click AxWindowsMediaPlayer1.settings.volume = 79 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem81_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem81.Click AxWindowsMediaPlayer1.settings.volume = 80 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem82_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem82.Click AxWindowsMediaPlayer1.settings.volume = 81 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem83_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem83.Click AxWindowsMediaPlayer1.settings.volume = 82 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem84_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem84.Click AxWindowsMediaPlayer1.settings.volume = 83 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem85_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem85.Click AxWindowsMediaPlayer1.settings.volume = 84 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem86_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem86.Click AxWindowsMediaPlayer1.settings.volume = 85 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem87_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem87.Click AxWindowsMediaPlayer1.settings.volume = 86 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem88_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem88.Click AxWindowsMediaPlayer1.settings.volume = 87 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem89_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem89.Click AxWindowsMediaPlayer1.settings.volume = 88 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem90_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem90.Click AxWindowsMediaPlayer1.settings.volume = 89 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem91_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem91.Click AxWindowsMediaPlayer1.settings.volume = 90 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem92_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem92.Click AxWindowsMediaPlayer1.settings.volume = 91 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem93_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem93.Click AxWindowsMediaPlayer1.settings.volume = 92 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem94_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem94.Click AxWindowsMediaPlayer1.settings.volume = 93 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem95_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem95.Click AxWindowsMediaPlayer1.settings.volume = 94 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem96_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem96.Click AxWindowsMediaPlayer1.settings.volume = 95 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem97_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem97.Click AxWindowsMediaPlayer1.settings.volume = 96 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem98_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem98.Click AxWindowsMediaPlayer1.settings.volume = 97 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem99_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem99.Click AxWindowsMediaPlayer1.settings.volume = 98 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem100_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem100.Click AxWindowsMediaPlayer1.settings.volume = 99 PictureBox6.Hide() Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" End Sub Private Sub ToolStripMenuItem101_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem101.Click AxWindowsMediaPlayer1.settings.volume = 100 PictureBox6.Hide() 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 PictureBox6.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 & "%" PictureBox6.Hide() End Sub Private Sub VolumeMuteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VolumeMuteToolStripMenuItem.Click AxWindowsMediaPlayer1.settings.mute = True PictureBox6.Show() End Sub Private Sub PictureBox6_Click(sender As Object, e As EventArgs) Handles PictureBox6.Click AxWindowsMediaPlayer1.settings.volume = 1 Label1.Text = "volume" & ": " & AxWindowsMediaPlayer1.settings.volume & "%" PictureBox6.Hide() End Sub Sub play() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then AxWindowsMediaPlayer1.Ctlcontrols.play() PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = True PictureBox4.Hide() PictureBox3.Show() End If End Sub Sub pause() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True AxWindowsMediaPlayer1.Ctlcontrols.pause() PictureBox4.Show() PictureBox3.Hide() End If End Sub Sub stop1() PauseToolStripMenuItem.Enabled = False PlayToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True AxWindowsMediaPlayer1.Ctlcontrols.stop() AxWindowsMediaPlayer1.currentPlaylist.clear() TextBox1.Clear() TextBox2.Clear() ListBox1.Items.Clear() ListBox2.Items.Clear() PictureBox4.Show() PictureBox3.Hide() PictureBox7.Hide() PictureBox8.Hide() Me.Text = "Playlist" End Sub Private Sub PlayToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlayToolStripMenuItem.Click play() End Sub Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click play() End Sub Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PauseToolStripMenuItem.Click pause() End Sub Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click pause() End Sub Private Sub StopToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StopToolStripMenuItem.Click stop1() End Sub Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click stop1() End Sub Private Sub OuvrirLesOptionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirLesOptionToolStripMenuItem.Click Form13.ShowDialog() End Sub Sub ouvrirfr() Dim dossier As New FolderBrowserDialog Dim sw4 As New StreamWriter(historique) If dossier.ShowDialog = 1 Then ListBox1.Items.Clear() TextBox1.Text = dossier.SelectedPath mp3s = IO.Directory.GetFiles(dossier.SelectedPath, "*.mp3") Dim info As IO.FileInfo For Each mp3 As String In mp3s info = New IO.FileInfo(mp3) ListBox1.Items.Add(info.Name) index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) TextBox2.Text = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.ListBox1.Items.Add(info.Name & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items Next sw4.Close() PictureBox4.Hide() PictureBox3.Show() PictureBox7.Show() PictureBox8.Show() PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False AllerToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True StopToolStripMenuItem.Enabled = True ListBox1.SetSelected(0, True) Next Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) Timer1.Start() If ListBox1.Items.Count = 0 Then sw4.Close() nomusique() Else End If End If End Sub Sub langfr() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) AxWindowsMediaPlayer1.Ctlcontrols.play() End If End Sub Sub langfr2() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name TextBox2.Text = mp3s(0) ListBox1.SetSelected(0, True) Else index = index + 1 AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(index, True) End If End If End Sub Sub langfr3() If ListBox1.Text <> "" Then index = ListBox1.SelectedIndex AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) End If End Sub Sub ouvrirnfr() Dim dossier As New FolderBrowserDialog Dim sw4 As New StreamWriter(historique) If dossier.ShowDialog = 1 Then PictureBox7.Show() PictureBox8.Show() ListBox1.Items.Clear() TextBox1.Text = dossier.SelectedPath mp3s = IO.Directory.GetFiles(dossier.SelectedPath, "*.mp3") Dim info As IO.FileInfo For Each mp3 As String In mp3s info = New IO.FileInfo(mp3) ListBox1.Items.Add(info.Name) index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) TextBox2.Text = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.ListBox1.Items.Add(info.Name & " : " & Today & " : " & TimeOfDay) For Each item In Form1.ListBox1.Items Next sw4.Close() PictureBox4.Hide() PictureBox3.Show() PictureBox7.Show() PictureBox8.Show() PauseToolStripMenuItem.Enabled = True PlayToolStripMenuItem.Enabled = False StopToolStripMenuItem.Enabled = True AllerToolStripMenuItem.Enabled = True VitesseToolStripMenuItem.Enabled = True ListBox1.SetSelected(0, True) Timer1.Start() Next If ListBox1.Items.Count = 0 Then sw4.Close() nomusique() Else End If End If End Sub Sub langfr5() If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsMediaEnded Then If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) TextBox2.Text = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(0, True) Else index = index + 1 AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(index, True) End If End If End Sub Sub langfr6() If ListBox1.Text <> "" Then index = ListBox1.SelectedIndex AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name 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 Form20.ShowDialog() End Sub Private Sub Form12_Closed(sender As Object, e As EventArgs) Handles Me.Closed Dim sw4 As New StreamWriter(historique) For Each item In Form1.ListBox1.Items sw4.WriteLine(item) Next sw4.Close() Dim dw8 As New StreamWriter(lançer) dw8.WriteLine(0) dw8.Close() Form1.NotifyIcon1.Visible = False End End Sub Private Sub InformationDuMédiaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InformationDuMédiaToolStripMenuItem.Click Form69.ShowDialog() End Sub Private Sub Form12_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() Hide() 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() Hide() End If End If End If End If End Sub Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.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 Form12_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 PictureBox4.Hide() PictureBox3.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 PictureBox4.Show() PictureBox3.Hide() Exit Sub End If End Sub Private Sub OuvrirUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OuvrirUnePlaylistToolStripMenuItem.Click ListBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosplaylist) Dim info As New IO.DirectoryInfo(fichier) ListBox2.Items.Add(info.Name) Next If ListBox2.Items.Count = 0 Then ListBox2.Items.Clear() MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical) Else ListBox2.Items.Clear() ouvrirplaylist.ShowDialog() End If End Sub Private Sub ModifierToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ModifierToolStripMenuItem.Click ListBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosplaylist) Dim info As New IO.DirectoryInfo(fichier) ListBox2.Items.Add(info.Name) Next If ListBox2.Items.Count = 0 Then ListBox2.Items.Clear() MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical) Else ListBox2.Items.Clear() Form183.ShowDialog() End If End Sub Private Sub SupprimerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SupprimerToolStripMenuItem.Click ListBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosplaylist) Dim info As New IO.DirectoryInfo(fichier) ListBox2.Items.Add(info.Name) Next If ListBox2.Items.Count = 0 Then ListBox2.Items.Clear() MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical) Else ListBox2.Items.Clear() supprimerplaylist.ShowDialog() End If End Sub Private Sub CréerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CréerToolStripMenuItem.Click addplaylist.ShowDialog() End Sub Sub nomusique() TextBox1.Text = "" MsgBox("Il n'y a pas de musique dans le dossier sélectionnez", MsgBoxStyle.Critical) End Sub Private Sub ExporterUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExporterUnePlaylistToolStripMenuItem.Click ListBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosplaylist) Dim info As New IO.DirectoryInfo(fichier) ListBox2.Items.Add(info.Name) Next If ListBox2.Items.Count = 0 Then ListBox2.Items.Clear() MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical) Else ListBox2.Items.Clear() exportplaylist.ShowDialog() End If End Sub Private Sub ImporterUnePlaylistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ImporterUnePlaylistToolStripMenuItem.Click If OpenFileDialog1.ShowDialog = 1 Then Directory.CreateDirectory(dosplaylist & "\temp\") Dim fileplaylist As String = OpenFileDialog1.FileName IO.Compression.ZipFile.ExtractToDirectory(fileplaylist, dosplaylist & "\temp\") Dim lines1a() As String = File.ReadAllLines(dosplaylist & "\temp\nom.txt") nom = lines1a(0).ToString Directory.Delete(dosplaylist & "\temp\", recursive:=True) If Directory.Exists(dosplaylist & nom) = True Then MsgBox("La playlist: " & nom & " existe déjà", MsgBoxStyle.Critical) Else ProgressBar1.Value = 0 ProgressBar1.Style = ProgressBarStyle.Marquee ProgressBar1.Show() Me.Text = "Importation de la playlist: " & nom Me.Enabled = False Try Directory.CreateDirectory(dosplaylist & "\" & nom & "\") BackgroundWorker1.RunWorkerAsync() Catch ex As Exception ProgressBar1.Hide() Me.Text = "Playlist" MsgBox("L’Importation de la playlist: " & nom & " est corrompus", MsgBoxStyle.Critical) Me.Enabled = True End Try End If End If End Sub Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork Dim fileplaylist As String = OpenFileDialog1.FileName IO.Compression.ZipFile.ExtractToDirectory(fileplaylist, dosplaylist & "\" & nom & "\") File.Delete(dosplaylist & "\" & nom & "\nom.txt") End Sub Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted ProgressBar1.Style = ProgressBarStyle.Blocks ProgressBar1.Value = 100 Me.Text = "Playlist" MsgBox("La playlist: " & nom & " a bien été importer", MsgBoxStyle.Information) nom = "" ProgressBar1.Hide() Me.Enabled = True End Sub Private Sub AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AjjouterLaMusiqueEnCoursAUnePlalistToolStripMenuItem.Click If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then ListBox2.Items.Clear() For Each fichier As String In IO.Directory.GetDirectories(dosplaylist) Dim info As New IO.DirectoryInfo(fichier) ListBox2.Items.Add(info.Name) Next If ListBox2.Items.Count = 0 Then ListBox2.Items.Clear() MsgBox("Aucune playlist trouvez", MsgBoxStyle.Critical) Else ListBox2.Items.Clear() Form184.ShowDialog() End If Else MsgBox("Aucun média lancer", MsgBoxStyle.Critical) End If End Sub Private Sub PictureBox8_Click(sender As Object, e As EventArgs) Handles PictureBox8.Click Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then changefrplus() ElseIf lines3(0) = 0 Then changfrfonoplus() End If End Sub Private Sub PictureBox7_Click(sender As Object, e As EventArgs) Handles PictureBox7.Click Dim lines3() As String = File.ReadAllLines(notification) If lines3(0) = 1 Then changefrmoins() ElseIf lines3(0) = 0 Then changfrfonomoins() End If End Sub Sub changefrplus() If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name TextBox2.Text = mp3s(0) Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(0, True) Else index = index + 1 AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(index, True) End If End Sub Sub changefrmoins() If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name TextBox2.Text = mp3s(0) Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(0, True) Else index = index - 1 Try AxWindowsMediaPlayer1.URL = mp3s(index) Catch ex As Exception index = 0 TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(index, True) End Try TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(index, True) End If End Sub Sub changfrfonoplus() If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name TextBox2.Text = mp3s(0) ListBox1.SetSelected(0, True) Else index = index + 1 AxWindowsMediaPlayer1.URL = mp3s(index) TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(index, True) End If End Sub Sub changfrfonomoins() If ListBox1.Items.Count - 1 = index Then index = 0 AxWindowsMediaPlayer1.URL = mp3s(0) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name TextBox2.Text = mp3s(0) Form1.NotifyIcon1.BalloonTipTitle = "lecteur média" Form1.NotifyIcon1.BalloonTipText = "vous écouter" & ": " & AxWindowsMediaPlayer1.currentMedia.name Form1.NotifyIcon1.ShowBalloonTip(1) ListBox1.SetSelected(0, True) Else index = index - 1 Try AxWindowsMediaPlayer1.URL = mp3s(index) Catch ex As Exception index = 0 TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(index, True) End Try TextBox2.Text = mp3s(index) Me.Text = "Playlist" & ": " & AxWindowsMediaPlayer1.currentMedia.name ListBox1.SetSelected(index, True) End If End Sub Private Sub PlaylistStoreToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PlaylistStoreToolStripMenuItem.Click Try If My.Computer.Network.Ping("www.google.com") = True Then Dim maj As New WebClient Dim vri As String = maj.DownloadString("http://lecteur2.lecteur-media.fr/lecteur/server%20temps.txt") If vri = 1 Then MsgBox("Le serveur de Lecteur média est indisponible", MsgBoxStyle.Critical, "server") Else playliststore.ShowDialog() End If Else MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End If Catch ex As Exception MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information) End Try End Sub End Class