Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Declare base costs/sales tax, as well as all dog types
        Dim intNumBeef, intNumPork, intNumTurkey, intNumTotal As Integer
        Dim dblSubtotal, dblSalesTax, dblTotalCost As Double
        Const DBL_DOG_PRICE As Double = 1.99
        Const DBL_SALES_TAX As Double = 0.07

        'Declare variables for hotdogs as well as total/subtotal/salestax and cost per dog
        intNumBeef = Convert.ToInt32(txtBeefDogs.Text)
        intNumPork = Convert.ToInt32(txtPorkDogs.Text)
        intNumTurkey = Convert.ToInt32(txtTurkeyDogs.Text)
        intNumTotal = intNumBeef + intNumPork + intNumTurkey

        'Calculate Subtotal, Sales Tax, and Total Cost
        dblSubtotal = intNumTotal * DBL_DOG_PRICE
        dblSalesTax = dblSubtotal * DBL_SALES_TAX
        dblTotalCost = dblSubtotal + dblSalesTax

        'Push SubTotal, SalesTax, and TotalCost to bottom textboxes
        txtSubtotal.Text = dblSubtotal.ToString("c2")
        txtSalesTax.Text = dblSalesTax.ToString("c2")
        txtTotalCost.Text = dblTotalCost.ToString("c2")
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'Code for exit
        Me.Close()
    End Sub
End Class