Renk Paneli

Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.Red

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.Red

        End If

    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.Blue

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.Blue

        End If

    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.Yellow

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.Yellow

        End If

    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.Green

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.Green

        End If

    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.White

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.White

        End If

    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click

        If RadioButton1.Checked = True Then

            Label1.ForeColor = Color.Orange

        End If

        If RadioButton2.Checked = True Then

            Me.BackColor = Color.Orange

        End If

    End Sub

End Class