Imports System.IO

Public Class Form88
    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        Form75.AxWindowsMediaPlayer1.fullScreen = True
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Form75.AxWindowsMediaPlayer1.Ctlcontrols.play()
        PictureBox1.Hide()
        PictureBox2.Show()
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        Form75.AxWindowsMediaPlayer1.Ctlcontrols.pause()
        PictureBox1.Show()
        PictureBox2.Hide()
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        Form75.AxWindowsMediaPlayer1.Ctlcontrols.stop()
        Form75.Close()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If Form75.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Or Form75.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
            GunaMetroTrackBar1.Maximum = Form75.AxWindowsMediaPlayer1.currentMedia.duration + 1
            GunaMetroTrackBar1.Value = Form75.AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
            Label1.Text = Form75.AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
            Label2.Text = Form75.AxWindowsMediaPlayer1.currentMedia.durationString
        End If
    End Sub

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

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White
            PictureBox1.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox3.BackColor = Color.FromArgb(64, 64, 64)
            GunaMetroTrackBar1.BackColor = Color.FromArgb(64, 64, 64)
        ElseIf lines1a(0) = 3 Then
            PictureBox1.Image = Form1.PictureBox7.Image
            PictureBox2.Image = Form1.PictureBox4.Image
            PictureBox3.Image = Form1.PictureBox5.Image
            PictureBox4.Image = Form1.PictureBox6.Image
            GunaMetroTrackBar1.TrackColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackHoverColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackPressedColor = Color.FromArgb(Form1.trackparproA, Form1.trackparproR, Form1.trackparproG, Form1.trackparproB)
            GunaMetroTrackBar1.TrackIdleColor = Color.FromArgb(Form1.trackparcolorA, Form1.trackparcolorR, Form1.trackparcolorG, Form1.trackparcolorB)
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            PictureBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            PictureBox3.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            GunaMetroTrackBar1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
        Else

        End If
    End Sub
End Class