Private seatsArray(3, 3) As Decimal
    'Private currentsale As Decimal



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buyButton1.Click


        Try


            If SeatListBox1.SelectedItem.ToString = "Orchestra" Then
                seatsArray(1, 0) += Integer.Parse(AmountTicketTextBox1.Text)
                seatsArray(0, 0) += seatsArray(1, 0) * seatsArray(2, 0)
                seatsArray(3, 0) = Integer.Parse(AmountTicketTextBox1.Text) * seatsArray(2, 0)
                'currentsale = seatsArray(1, 0) * seatsArray(2, 0)
            ElseIf SeatListBox1.SelectedItem.ToString = "Mezzanine" Then
                seatsArray(1, 1) += Integer.Parse(AmountTicketTextBox1.Text)
                seatsArray(0, 1) += seatsArray(1, 1) * seatsArray(2, 1)
                seatsArray(3, 0) = Integer.Parse(AmountTicketTextBox1.Text) * seatsArray(2, 1)
                ' currentsale = seatsArray(1, 1) * seatsArray(2, 1)
            ElseIf SeatListBox1.SelectedItem.ToString = "General" Then
                seatsArray(1, 2) += Integer.Parse(AmountTicketTextBox1.Text)
                seatsArray(0, 2) += seatsArray(1, 2) * seatsArray(2, 2)
                seatsArray(3, 0) = Integer.Parse(AmountTicketTextBox1.Text) * seatsArray(2, 2)
                '  currentsale = seatsArray(1, 2) * seatsArray(2, 2)
            ElseIf SeatListBox1.SelectedItem.ToString = "Balcony" Then
                seatsArray(1, 3) += Integer.Parse(AmountTicketTextBox1.Text)
                seatsArray(0, 3) += seatsArray(1, 3) * seatsArray(2, 3)
                seatsArray(3, 0) = Integer.Parse(AmountTicketTextBox1.Text) * seatsArray(2, 3)
                ' currentsale = seatsArray(1, 3) * seatsArray(2, 3)
            End If
            AmountTicketTextBox1.Text = 1
            MessageBox.Show("Thank you for the purchase" & ControlChars.NewLine & "Total: " & seatsArray(3, 0).ToString("C"))


        Catch ex As Exception
            MessageBox.Show("Please enter a correct value")
        End Try
    End Sub

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

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'seat prices
        seatsArray(2, 0) = 40D
        seatsArray(2, 1) = 27.5
        seatsArray(2, 2) = 15D
        seatsArray(2, 3) = 10D

    End Sub