title: I need help getting the correct values after running program
body: <p>In VB.NET, I need to:</p>
  
  <ul>
  <li>Calculate the Subtotal based on number of tickets sold and ticket price.</li>
  <li>Calculate the Tax based on Subtotal.</li>
  <li>Calculate the Total by adding Tax and Subtotal.</li>
  <li>Add the Total to the Daily Grand Total (running total).</li>
  <li>Calculate the promoter’s profit of 20% of the Daily Grand Total.</li>
  <li>Display the Subtotal, Tax, Total, Daily Grand Total and Profit.</li>
  </ul>
  
  <p>When I run the program and hit submit after putting in the values for Number of Tickets sold and ticket price, Subtotal and Tax come back fine. 
  But I always get a value of 0 in Overall Total and Daily Grand Total. Can't seem to figure out why.</p>
  
  <p>Here's what I have so far:</p>
  
  <pre><code>Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
      Dim intTicketsSold As Integer
      Dim dblTicketPrice As Double
      Const dblTax As Double = 0.07
      Dim dblOATotal As Double
      Dim dblSubTotal As Double
      Dim cdblDGTotal As Double
      Const cdblPromoProfit As Double = 0.2
  
      'Create local variables
      intTicketsSold = txtTicketsSold.Text
      dblTicketPrice = txtTicketPrice.Text
      lblTax.Text = dblTax
      lblOATotal.Text = dblOATotal
      lblSubTotal.Text = dblSubTotal
      lblDGTotal.Text = cdblDGTotal
      lblPromoProfit.Text = cdblPromoProfit
  
      'Calculate Subtotal
      lblSubTotal.Text = intTicketsSold * dblTicketPrice
  
      'calculate tax to subtotal
      lblTax.Text = 0.07 * (intTicketsSold * dblTicketPrice)
  
      'Get the overall total
      dblOATotal = dblTax + dblSubTotal
  
      'Add Total to Daily Grand Total to get Running Total
  
      cdblDGTotal = cdblDGTotal + dblOATotal
  
      'Calculate Promoters Profit of Daily Grand Total
      lblPromoProfit.Text = 0.2 * cdblDGTotal
  End Sub
  </code></pre>
  
  <p>What am I doing wrong?</p>