title: Pass integer value from one form to another in VB.NET
body: <p>I'm writing a program that has two forms. One form gets the user to enter multiple values, and then does some calculations. Then it passes that information to another form However I can't figure out how to do it. Here is a relevant part of my code. To head some confusion, I am trying to pass 11 values, also initially, form 2 is not shown, and then when the values are passed from form 1 to form 2, then form 1 goes away and form 2 is the only one that shown</p>
  
  <p>NOTE: This is not all my code, I don't believe all my code is required (I have 1000 lines right now) However this is the code with the information I want to be passed to the other form.</p>
  
  <p>A lot of people are apparently saying that this is a duplicate of another question, however that question, he seems to already know how to pass the variables, but is just having issues with it (and even with looking at his, i cant figure it out)</p>
  
  <pre><code> Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click
      'declarations
      Dim intNormal As Integer
      Dim intChildren As Integer
      Dim intBonanza As Integer
      Dim intDiamond As Integer
      Dim intPictureFrame As Integer
      Dim intKite As Integer
      Dim intCrazyT As Integer
      Dim intLetterX As Integer
      Dim int2PostageStamp As Integer
      Dim intPick7 As Integer
      Dim intJackpot As Integer
  
      Validate()
      If txtNormal1.Enabled = False Then
          intNormal = intNormInput
      Else
          intNormal = CalcNormalBooks()
      End If
      If txtChildren1.Enabled = False Then
          intChildren = intChildInput
      Else
          intChildren = calcChildrensBooks()
      End If
      If txtBonanza1.Enabled = False Then
          intBonanza = intBonInput
      Else
          intBonanza = calcBonanza()
      End If
      If txtSpecial1.Enabled = False Then
          intSpecial = intSpeInput
      Else
          intSpecial = calcSpecialBooks(intSpecial)
      End If
      If txtDiamond1.Enabled = False Then
          intDiamond = intDiaInput
      Else
          intDiamond = calcDiamond(intSpecial)
      End If
      If txtPictureFrame1.Enabled = False Then
          intPictureFrame = intPicInput
      Else
          intPictureFrame = calcPictureFrame(intSpecial)
      End If
      If txtKite1.Enabled = False Then
          intKite = intKiteInput
      Else
          intKite = calcKite(intSpecial)
      End If
      If txtCrazyT1.Enabled = False Then
          intCrazyT = intCrazyInput
      Else
          intCrazyT = calcCrazyT(intSpecial)
      End If
      If txtLetterX1.Enabled = False Then
          intLetterX = intLettInput
      Else
          intLetterX = calcLetterX(intSpecial)
      End If
      If txt2PostageStamp1.Enabled = False Then
          int2PostageStamp = intPostInput
      Else
          int2PostageStamp = CalcPostageStamp(intSpecial)
      End If
      If txtPick71.Enabled = False Then
          intPick7 = intPickInput
      Else
          intPick7 = calcPick7(intSpecial)
      End If
      If txtJackpot1.Enabled = False Then
          intJackpot = intJackInput
      Else
          intJackpot = calcJackpot()
      End If
  End Sub
  </code></pre>