Form3.vb

Public Class Form3

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True Then
            My.Settings.tabcolour = "Red"
            With Form1
                .TabPage1.BackColor = Color.Red
                .TabPage2.BackColor = Color.Red
                .TabPage10.BackColor = Color.Red
                .TabPage5.BackColor = Color.Red
                .TabPage4.BackColor = Color.Red
                .TabPage3.BackColor = Color.Red
                .TabPage11.BackColor = Color.Red
            End With
        ElseIf RadioButton2.Checked = True Then
            My.Settings.tabcolour = "Green"
            With Form1
                .TabPage1.BackColor = Color.Green
                .TabPage2.BackColor = Color.Green
                .TabPage10.BackColor = Color.Green
                .TabPage5.BackColor = Color.Green
                .TabPage4.BackColor = Color.Green
                .TabPage3.BackColor = Color.Green
                .TabPage11.BackColor = Color.Green
            End With
        ElseIf RadioButton3.Checked = True Then
            My.Settings.tabcolour = "Blue"
            With Form1
                .TabPage1.BackColor = Color.Blue
                .TabPage2.BackColor = Color.Blue
                .TabPage10.BackColor = Color.Blue
                .TabPage5.BackColor = Color.Blue
                .TabPage4.BackColor = Color.Blue
                .TabPage3.BackColor = Color.Blue
                .TabPage11.BackColor = Color.Blue
            End With
        ElseIf RadioButton4.Checked = True Then
            My.Settings.tabcolour = "Yellow"
            With Form1
                .TabPage1.BackColor = Color.Yellow
                .TabPage2.BackColor = Color.Yellow
                .TabPage10.BackColor = Color.Yellow
                .TabPage5.BackColor = Color.Yellow
                .TabPage4.BackColor = Color.Yellow
                .TabPage3.BackColor = Color.Yellow
                .TabPage11.BackColor = Color.Yellow
            End With
        ElseIf RadioButton5.Checked = True Then
            My.Settings.tabcolour = "White"
            With Form1
                .TabPage1.BackColor = Color.White
                .TabPage2.BackColor = Color.White
                .TabPage10.BackColor = Color.White
                .TabPage5.BackColor = Color.White
                .TabPage4.BackColor = Color.White
                .TabPage3.BackColor = Color.White
                .TabPage11.BackColor = Color.White
            End With
        Else
            Dim error53 As Integer
            error53 = MsgBox("Error 53 - Please select at least 1 colour", MsgBoxStyle.Critical, "Error 53")
        End If
        Me.Close()
    End Sub
End Class