Imports System.IO

Public Class Photo
    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Form3.PictureBox1.Image = PictureBox1.Image
        Close()
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        Form3.PictureBox1.Image = PictureBox2.Image
        Close()
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        Form3.PictureBox1.Image = PictureBox3.Image
        Close()
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        Form3.PictureBox1.Image = PictureBox4.Image
        Close()
    End Sub

    Private Sub Photo_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)
            PictureBox2.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)
        ElseIf lines1a(0) = 3 Then
            Me.BackColor = Color.FromArgb(64, 64, 64)
            PictureBox2.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)
        End If
    End Sub
End Class