Imports System.IO

Public Class Form68
    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
        MsgBox(Label2.Text, MsgBoxStyle.Information)
    End Sub
    Sub langfr()
        If Form8.TextBox1.Text.EndsWith(".mp3") Then
            Label2.Text = Form8.AxWindowsMediaPlayer1.currentMedia.name
            Label4.Text = Form8.AxWindowsMediaPlayer1.currentMedia.durationString
            Label6.Text = "mp3"
            PictureBox2.Show()
        ElseIf Form8.TextBox1.Text.EndsWith("RFM") Then
            Form54.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("RMC") Then
            Form55.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("Chérie") Then
            Form56.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("Nostalgie France") Then
            Form57.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("NRJ France") Then
            Form58.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("Rire & Chansons") Then
            Form59.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("France Info") Then
            Form60.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("Fun Radio France") Then
            Form61.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("RTL") Then
            Form62.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("Ouï FM") Then
            Form63.ShowDialog()
            Close()
        ElseIf Form8.TextBox1.Text.EndsWith("radio") Then
            Form87.ShowDialog()
            Close()
        Else
            MsgBox("Aucun média a été lancé", MsgBoxStyle.Information)
            Close()
        End If
    End Sub

    Private Sub Form68_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
            Label3.ForeColor = Color.White
            Label4.ForeColor = Color.White
            Label5.ForeColor = Color.White
            Label6.ForeColor = Color.White
            PictureBox2.BackColor = Color.FromArgb(64, 64, 64)
        ElseIf lines1a(0) = 3 Then
            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)
            Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label4.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label5.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label6.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            PictureBox2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
        Else

        End If

        langfr()
    End Sub
End Class