FALLARME_OrderForm

Public Class Form1
    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged
        If RadioButton1.Checked = True Then
            Label7.Text = "XS"
            Label13.Text = "100"
        End If
    End Sub
    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged
        If RadioButton2.Checked = True Then
            Label7.Text = "S"
            Label13.Text = "150"
        End If
    End Sub
    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
        If RadioButton3.Checked = True Then
            Label7.Text = "M"
            Label13.Text = "200"
        End If
    End Sub
    Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
        If RadioButton4.Checked = True Then
            Label7.Text = "L"
            Label13.Text = "300"
        End If
    End Sub
    Private Sub RadioButton5_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton5.CheckedChanged
        If RadioButton5.Checked = True Then
            Label7.Text = "XL"
            Label13.Text = "400"
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadioButton15.Checked = True Then
            Label13.Text = Label13.Text * 1
            Label9.Text = "1"
        End If
        If RadioButton14.Checked = True Then
            Label13.Text = Label13.Text * 2
            Label9.Text = "2"
        End If
        If RadioButton13.Checked = True Then
            Label13.Text = Label13.Text * 3
            Label9.Text = "3"
        End If
        If RadioButton12.Checked = True Then
            Label13.Text = Label13.Text * 4
            Label9.Text = "4"
        End If
        If RadioButton11.Checked = True Then
            Label13.Text = Label13.Text * 5
            Label9.Text = "5"
        End If
    End Sub
    Private Sub RadioButton6_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton6.CheckedChanged
        Label8.Text = "red"
    End Sub
    Private Sub RadioButton7_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton7.CheckedChanged
        Label8.Text = "green"
    End Sub
    Private Sub RadioButton8_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton8.CheckedChanged
        Label8.Text = "blue"
    End Sub
    Private Sub RadioButton9_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton9.CheckedChanged
        Label8.Text = "black"
    End Sub
    Private Sub RadioButton10_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton10.CheckedChanged
        Label8.Text = "white"
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show("Thank you for ordering!")
    End Sub
End Class