Private Sub btnPizzaorder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPizzaorder.Click
        Dim TotalLessDiscount As Double

        If radSmall.Checked Then
            Total += PRICE_PER_SMALL
        ElseIf radMedium.Checked Then
            Total += PRICE_PER_MEDIUM
        ElseIf radLarge.Checked Then
            Total += PRICE_PER_LARGE
        End If

        If chkXcheese.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        If chkPepperoni.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        If chkSausage.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        If chkGrnPpr.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        If chkOnion.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        If chkMushroom.Checked Then
            Total += PRICE_PER_EXTRA
        End If

        lblSubtotal.Text = Total.ToString("c")

        If Total > 40 Then
            Discount = 0.9
            lblDiscount.Text = "10%"

        ElseIf Total > 20 Then
            Discount = 0.95
            lblDiscount.Text = "5%"

        Else
            Discount = 1.0
            lblDiscount.Text = "0%"
        End If

        TotalLessDiscount = Total * Discount

        lblSubtotal.Text = Total.ToString("c")
        lblGtotal.Text = TotalLessDiscount.ToString("c")
    End Sub