crazy

Public Class Form1

    Dim OrderTotal As Decimal
    Dim SuppremeTotal As Decimal
    Dim TropicalTotal As Decimal
    Dim MeatBeastTotal As Decimal
    Dim CapricciosaTotal As Decimal


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub


    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OrderTotal = OrderTotal - SuppremeTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        SuppremeTotal = 0
        TextBoxSuppremeQuantity.Text = "?"
        lblSuppremeTotal.Text = "$??.??"
        btnBuySuppreme.Enabled = True
    End Sub

    Private Sub RectangleShape3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape3.Click, RectangleShape4.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblCapricciosaTotal.Click

    End Sub

    Private Sub GroupBox4_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox4.Enter

    End Sub

    Private Sub optFamCap_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFamCap.CheckedChanged

    End Sub

    Private Sub optLarCap_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optLarCap.CheckedChanged

    End Sub

    Private Sub optMedCap_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optMedCap.CheckedChanged

    End Sub

    Private Sub optSmlCap_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optSmallCapricciosa.CheckedChanged

    End Sub

    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

    End Sub

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter

    End Sub

    Private Sub optFamTrop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFamTrop.CheckedChanged

    End Sub

    Private Sub optLarTrop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optLarTrop.CheckedChanged

    End Sub

    Private Sub optMediumTrop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optMedTrop.CheckedChanged

    End Sub

    Private Sub optSmlTrop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optSmlTrop.CheckedChanged

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub lbl5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl5.Click

    End Sub

    Private Sub lblBlackTeeTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblSuppremeTotal.Click

    End Sub

    Private Sub lbl7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl7.Click

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblMeatBeastTotal.Click

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub optFamMB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFamMB.CheckedChanged

    End Sub

    Private Sub optLarMB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optLarMB.CheckedChanged

    End Sub

    Private Sub optMedMB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optMedMB.CheckedChanged

    End Sub

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox3.Enter

    End Sub

    Private Sub optSmlMB_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optSmlMB.CheckedChanged

    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

    End Sub

    Private Sub optFamSup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optFamSup.CheckedChanged

    End Sub

    Private Sub optLarSup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optLarSup.CheckedChanged

    End Sub

    Private Sub optMedSup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optMedSup.CheckedChanged

    End Sub

    Private Sub optSmlSup_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optSmlSup.CheckedChanged

    End Sub

    Private Sub lbl3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl3.Click

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub TextBoxBlackTeeQuantity_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxSuppremeQuantity.TextChanged

    End Sub

    Private Sub lblOrderTotalDollars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblOrderTotalDollars.Click

    End Sub

    Private Sub btnCalculateBlackTee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxCapricciosaQuantity.TextChanged

    End Sub

    Private Sub btn_calcSUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_calcSUP.Click
        Dim SuppremeQuantityNumber As Integer

        If IsNumeric(TextBoxSuppremeQuantity.Text) = True Then
            SuppremeQuantityNumber = Integer.Parse(TextBoxSuppremeQuantity.Text)
        Else
            TextBoxSuppremeQuantity.Text = "?"
            SuppremeTotal = 0
            lblSuppremeTotal.Text = "Error Qty"
            Exit Sub
        End If

        If optSmlSup.Checked = True Then
            SuppremeTotal = 15 * SuppremeQuantityNumber
        ElseIf optMedSup.Checked = True Then
            SuppremeTotal = 20 * SuppremeQuantityNumber
        ElseIf optLarSup.Checked = True Then
            SuppremeTotal = 30 * SuppremeQuantityNumber
        ElseIf optFamSup.Checked = True Then
            SuppremeTotal = 30 * SuppremeQuantityNumber

        Else
            SuppremeTotal = 0
            lblSuppremeTotal.Text = "Error Qty"
            Exit Sub

        End If
        lblSuppremeTotal.Text = Str(SuppremeTotal)
        lblSuppremeTotal.Text = FormatCurrency(lblSuppremeTotal.Text, , , TriState.True, TriState.True)

    End Sub

    Private Sub btnCalculateCapricciosa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateCapricciosa.Click
        Dim CapricciosaQuantityNumber As Integer

        If IsNumeric(TextBoxCapricciosaQuantity.Text) = True Then
            CapricciosaQuantityNumber = Integer.Parse(TextBoxCapricciosaQuantity.Text)
        Else
            TextBoxCapricciosaQuantity.Text = "?"
            CapricciosaTotal = 0
            lblCapricciosaTotal.Text = "Error Qty"
            Exit Sub
        End If

        If optSmallCapricciosa.Checked = True Then
            CapricciosaTotal = 8 * CapricciosaQuantityNumber
        ElseIf optMedCap.Checked = True Then
            CapricciosaTotal = 9.5 * CapricciosaQuantityNumber
        ElseIf optLarCap.Checked = True Then
            CapricciosaTotal = 12.5 * CapricciosaQuantityNumber
        ElseIf optFamCap.Checked = True Then
            CapricciosaTotal = 15.5 * CapricciosaQuantityNumber

        Else
            CapricciosaTotal = 0
            lblCapricciosaTotal.Text = "Error Qty"
            Exit Sub

        End If

        lblCapricciosaTotal.Text = Str(CapricciosaTotal)
        lblCapricciosaTotal.Text = FormatCurrency(lblCapricciosaTotal.Text, , , TriState.True, TriState.True)


        If IsNumeric(TextBoxCapricciosaQuantity.Text) = True Then
            CapricciosaQuantityNumber = Integer.Parse(TextBoxCapricciosaQuantity.Text)
        Else

            Exit Sub

        End If


        OrderTotal = OrderTotal + CapricciosaTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        btnBuyCapricciosa.Enabled = False





        OrderTotal = OrderTotal - CapricciosaTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        CapricciosaTotal = 0
        TextBoxCapricciosaQuantity.Text = "?"
        lblCapricciosaTotal.Text = "$??.??"
        btnBuyCapricciosa.Enabled = True

    End Sub

    Private Sub btnBuySuppreme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuySuppreme.Click
        OrderTotal = OrderTotal + SuppremeTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        btnBuySuppreme.Enabled = False
    End Sub

    Private Sub btn_calcMB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_calcMB.Click
        Dim MeatBeastQuantityNumber As Integer

        If IsNumeric(TextBoxMeatBeastQuantity.Text) = True Then
            MeatBeastQuantityNumber = Integer.Parse(TextBoxMeatBeastQuantity.Text)
        Else
            TextBoxMeatBeastQuantity.Text = "?"
            MeatBeastTotal = 0
            lblMeatBeastTotal.Text = "Error Qty"
            Exit Sub
        End If

        If optSmlMB.Checked = True Then
            MeatBeastTotal = 15 * MeatBeastQuantityNumber
        ElseIf optMedMB.Checked = True Then
            MeatBeastTotal = 20 * MeatBeastQuantityNumber
        ElseIf optLarMB.Checked = True Then
            MeatBeastTotal = 30 * MeatBeastQuantityNumber
        ElseIf optFamMB.Checked = True Then
            MeatBeastTotal = 30 * MeatBeastQuantityNumber

        Else
            MeatBeastTotal = 0
            lblMeatBeastTotal.Text = "Error Qty"
            Exit Sub

        End If
        lblMeatBeastTotal.Text = Str(MeatBeastTotal)
        lblMeatBeastTotal.Text = FormatCurrency(lblMeatBeastTotal.Text, , , TriState.True, TriState.True)

    End Sub

    Private Sub btnmb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuyMeatBeast.Click
        OrderTotal = OrderTotal + MeatBeastTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        btnBuyMeatBeast.Enabled = False

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        OrderTotal = OrderTotal - MeatBeastTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        MeatBeastTotal = 0
        TextBoxMeatBeastQuantity.Text = "?"
        lblMeatBeastTotal.Text = "$??.??"
        btnBuyMeatBeast.Enabled = True

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_calcTROP.Click
        Dim TropicalQuantityNumber As Integer

        If IsNumeric(TextBoxTropicalQuantity.Text) = True Then
            TropicalQuantityNumber = Integer.Parse(TextBoxTropicalQuantity.Text)
        Else
            TextBoxTropicalQuantity.Text = "?"
            TropicalTotal = 0
            lblTropicalTotal.Text = "Error Qty"
            Exit Sub
        End If

        If optSmlTrop.Checked = True Then
            TropicalTotal = 15 * TropicalQuantityNumber
        ElseIf optMedTrop.Checked = True Then
            TropicalTotal = 20 * TropicalQuantityNumber
        ElseIf optLarTrop.Checked = True Then
            TropicalTotal = 30 * TropicalQuantityNumber
        ElseIf optFamTrop.Checked = True Then
            TropicalTotal = 30 * TropicalQuantityNumber

        Else
            TropicalTotal = 0
            lblTropicalTotal.Text = "Error Qty"
            Exit Sub

        End If
        lblTropicalTotal.Text = Str(TropicalTotal)
        lblTropicalTotal.Text = FormatCurrency(lblTropicalTotal.Text, , , TriState.True, TriState.True)

    End Sub

    Private Sub btntrop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuyTropical.Click
        OrderTotal = OrderTotal + TropicalTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        btnBuyTropical.Enabled = False

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        OrderTotal = OrderTotal - TropicalTotal
        lblOrderTotalDollars.Text = Str(OrderTotal)
        lblOrderTotalDollars.Text = FormatCurrency(lblOrderTotalDollars.Text, , , TriState.True, TriState.True)
        TropicalTotal = 0
        TextBoxTropicalQuantity.Text = "?"
        lblTropicalTotal.Text = "$??.??"
        btnBuyTropical.Enabled = True

    End Sub

    Private Sub lblDeliveryTotalDollars_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDeliveryTotalDollars.Click

    End Sub

    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click

    End Sub

    Private Sub Label14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label14.Click

    End Sub

    Private Sub lbl6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbl6.Click

    End Sub

    Private Sub lblTropicalTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTropicalTotal.Click

    End Sub

    Private Sub Label16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label16.Click

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

    End Sub
End Class