Imports System.ComponentModel
Imports System.IO

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

        If lines1a(0) = 2 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            Button1.BackColor = Color.FromArgb(64, 64, 64)
            Button1.ForeColor = Color.White
            Button2.BackColor = Color.FromArgb(64, 64, 64)
            Button2.ForeColor = Color.White
            Label1.ForeColor = Color.White
            Label2.ForeColor = Color.White
        ElseIf lines1a(0) = 3 Then
            Dim lines1b() As String = File.ReadAllLines(themeselect)
            Dim lines1c() As String = File.ReadAllLines(dostheme & "\" & lines1b(0) & "\colorplans.txt")
            Dim A As String = lines1c(0)
            Dim R As String = lines1c(1)
            Dim G As String = lines1c(2)
            Dim B As String = lines1c(3)
            Me.BackColor = Color.FromArgb(A, R, G, B)
            Form4.BackColor = Color.FromArgb(A, R, G, B)
            Form4.PictureBox1.BackColor = Color.FromArgb(A, R, G, B)
            Form4.PictureBox2.BackColor = Color.FromArgb(A, R, G, B)
            Form1.colorbackA = A
            Form1.colorbackR = R
            Form1.colorbackG = G
            Form1.colorbackB = B
            Dim lines2() As String = File.ReadAllLines(dostheme & "\" & lines1b(0) & "\colorpolice.txt")
            Dim A1 As String = lines2(0)
            Dim R1 As String = lines2(1)
            Dim G1 As String = lines2(2)
            Dim B1 As String = lines2(3)
            Me.ForeColor = Color.FromArgb(A1, R1, G1, B1)
            Label1.ForeColor = Color.FromArgb(A1, R1, G1, B1)
            Form1.themeforecoloA = A1
            Form1.themeforecoloR = R1
            Form1.themeforecoloG = G1
            Form1.themeforecoloB = B1
            Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
            Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
            Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
        End If

        Label2.Hide()
        ProgressBar1.Hide()

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Form4.Hide()
    End Sub

    Private Sub Form84_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        e.Cancel = True
        MsgBox("Merci d'attendre la fin de la réparation automatique", MsgBoxStyle.Exclamation)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button2.Enabled = False
        Timer2.Start()
        ProgressBar1.Show()
        Label2.Show()
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        ProgressBar2.Increment(1)
        If ProgressBar2.Value >= 50 Then
            Label2.Text = "Réparation automatique " & ProgressBar2.Value & "%"
        End If
        If ProgressBar2.Value = 100 Then
            Timer2.Stop()
            ProgressBar1.Hide()
            Label2.Hide()
            Dim sw6 As New StreamWriter(lançer)
            sw6.WriteLine(0)
            sw6.Close()
            ProgressBar1.Hide()
            MsgBox("La réparation automatique a réussi avec sucés", MsgBoxStyle.Information)
            Process.Start(Application.StartupPath & "\rememarage")
            End
        End If
    End Sub
End Class