so my question here is when i click exit its suppose to give me the global totals of net and gross and the rows and there is 19 tickets per row but every time i click exit the gross and net work correctly i believe but the rows just show me 19.00 can someone please help me to figure this out.
Thanks






Code:
Public Class Form1
    Dim decGrandGross As Decimal
    Dim decGrandNet As Decimal
    Dim intGrandTotalTickets As Integer
    Const Rows As Integer = 19




    Dim dtenow As Object

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles lbltitlechildsales.Click

    End Sub

    Private Sub Label12_Click(sender As Object, e As EventArgs) Handles lblNetChild.Click

    End Sub

    Private Sub Label9_Click(sender As Object, e As EventArgs) Handles lblNetTicket.Click

    End Sub

    Private Sub Label4_Click(sender As Object, e As EventArgs) Handles lblATicketSales.Click

    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGrossSales.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles txtGrossChild.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles txtGrossAdult.TextChanged

    End Sub

    Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles txtChildCost.TextChanged

    End Sub

    Private Sub Label8_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles txtNetChild.TextChanged

    End Sub

    Private Sub TextBox8_TextChanged(sender As Object, e As EventArgs) Handles txtNetAdult.TextChanged

    End Sub

    Private Sub lblCTicketsSold_Click(sender As Object, e As EventArgs) Handles lblChildSold.Click

    End Sub

    Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles txtAdultSold.TextChanged

    End Sub

    Private Sub txtPricePerTicket_TextChanged(sender As Object, e As EventArgs) Handles txtAdultCost.TextChanged

    End Sub

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click



        
        MessageBox.Show("Grand Gross Revenue Total: " & decGrandGross.ToString("C"))

        MessageBox.Show("Grand Net Revenue Total: " & decGrandNet.ToString("C"))

        MessageBox.Show("Grand Total Rows Sold: " & Rows.ToString("C"))
        Me.Close()
    End Sub

    Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
        txtMonth.Clear()
        txtDay.Clear()
        txtYear.Clear()
        lblDate.Text = ""
        txtAdultSold.Clear()
        txtAdultCost.Clear()
        txtChildSold.Clear()
        txtChildCost.Clear()
        txtNetAdult.Clear()
        txtNetChild.Clear()
        txtGrossAdult.Clear()
        txtGrossChild.Clear()
        txtGrossSales.Clear()
        txtNetSales.Clear()
        txtAdultCost.Focus()

    End Sub

    Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        ' Declare Variables for the calculations.
        Dim decAdultCost As Decimal     ' Adult ticket cost
        Dim intAdultSold As Decimal     ' Adult tickets sold
        Dim decChildCost As Decimal     ' Childern ticket cost
        Dim intChildSold As Decimal     ' Childern tickets sold
        Dim decNetAdult As Decimal     ' Childern tickets sold
        Dim decNetChild As Decimal     ' Childern tickets sold
        Dim decNetSales As Decimal     ' Childern tickets sold
        Dim decGrossAdult As Decimal     ' Childern tickets sold
        Dim decGrossChild As Decimal     ' Childern tickets sold
        Dim decGrossSales As Decimal     ' Childern tickets sold
        Const DecTax_RATE As Decimal = CDec(0.2)  ' Tax Rate
        Try
            ' Calculate and display adult tickets sold.

            intAdultSold = CDec(txtAdultSold.Text)
            decAdultCost = CDec(txtAdultCost.Text)

            decGrossAdult = decAdultCost * intAdultSold
            txtGrossAdult.Text = decGrossAdult.ToString("c")

            ' Calculate and display child tickets sold.
            intChildSold = CDec(txtChildSold.Text)
            decChildCost = CDec(txtChildCost.Text)

            decGrossChild = decChildCost * intChildSold
            txtGrossChild.Text = decGrossChild.ToString("c")

            ' Calculate total Gross Ticket Sales.
            decGrossAdult = CDec(txtGrossAdult.Text)
            decGrossChild = CDec(txtGrossChild.Text)

            decGrossSales = decGrossAdult + decGrossChild
            txtGrossSales.Text = decGrossSales.ToString("c")

            ' Calculate and display net adult tickets sold.
            intAdultSold = CDec(txtAdultSold.Text)
            decAdultCost = CDec(txtAdultCost.Text)

            decNetAdult = decAdultCost * intAdultSold * DecTax_RATE
            txtNetAdult.Text = decNetAdult.ToString("c")

            ' Calculate and display net child tickets sold.
            intChildSold = CDec(txtChildSold.Text)
            decChildCost = CDec(txtChildCost.Text)

            decNetChild = decChildCost * intChildSold * DecTax_RATE
            txtNetChild.Text = decNetChild.ToString("c")

            ' Calculate total Net Ticket Sales.
            decNetAdult = CDec(txtNetAdult.Text)
            decNetChild = CDec(txtNetChild.Text)

            decNetSales = decNetAdult + decNetChild
            txtNetSales.Text = decNetSales.ToString("c")

            decGrandGross += decGrossSales
            decGrandNet += decNetSales
            intGrandTotalTickets = CInt(intGrandTotalTickets + intAdultSold + intChildSold)
            intGrandTotalTickets = CInt(intGrandTotalTickets / Rows)



        Catch

        End Try

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '   Use the NOW function to place the current date/time into a DATE variable
        Dim dteNow As Date
        dteNow = Now

        '   Concatenate the formatted the DATE to what's already in the form's title bar
        Me.Text &= " " & dteNow.ToString("d")
        btnCalculate.Enabled = False
        btnSetDate.Focus()
        btnCalculate.Enabled = True


    End Sub

    Private Sub txtChildSold_TextChanged(sender As Object, e As EventArgs) Handles txtChildSold.TextChanged

    End Sub

    Private Sub Label15_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub lblGrossRevenue_Click(sender As Object, e As EventArgs) Handles lblGrossRevenue.Click

    End Sub

    Private Sub LblGrossChild_Click(sender As Object, e As EventArgs) Handles LblGrossChild.Click

    End Sub

    Private Sub lblGrossAdult_Click(sender As Object, e As EventArgs) Handles lblGrossAdult.Click

    End Sub

    Private Sub Label16_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub lblNetSales_Click(sender As Object, e As EventArgs) Handles lblNetSales.Click

    End Sub

    Private Sub lblNetAdult_Click(sender As Object, e As EventArgs) Handles lblNetAdult.Click

    End Sub

    Private Sub txtCPricePerTicket_Click(sender As Object, e As EventArgs) Handles txtCPricePerTicket.Click

    End Sub

    Private Sub lblAPricePerTicket_Click(sender As Object, e As EventArgs) Handles lblAPricePerTicket.Click

    End Sub

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

    End Sub

    Private Sub TextBox4_TextChanged_1(sender As Object, e As EventArgs)

    End Sub

    Private Sub btnSetDate_Click(sender As Object, e As EventArgs) Handles btnSetDate.Click
        Dim strMonth As String
        Dim strYear As String
        Dim strDay As String
        Dim dtmDate As Date
        Dim strDate As String
        Try

       
        strMonth = txtMonth.Text
        strDay = txtDay.Text
        strYear = txtYear.Text
        strDate = lblDate.Text
            strDate = strMonth & "/" & strDay & "/" & strYear
            dtmDate = CDate(strDate)
            lblDate.Text = dtmDate.ToString("D")
        Catch ex As Exception

        End Try
    End Sub

    Private Function Day(p1 As Date) As Object
        Throw New NotImplementedException
    End Function

    Private Sub txtMonth_TextChanged(sender As Object, e As EventArgs) Handles txtMonth.TextChanged

    End Sub

    Private Sub Label6_Click(sender As Object, e As EventArgs) Handles lblDate.Click

    End Sub
End Class