Public Class frmEventTicket

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub lblEventTicketTitle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblEventTicketTitle.Click

    End Sub

    Private Sub frmEventTicket_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        btnCalculate.Enabled = False
        btnClear.Enabled = False
    End Sub

    Private Sub lblTotal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTotal.Click

    End Sub

    Private Sub nudTicket_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nudTicket.ValueChanged
        btnCalculate.Enabled = True
        btnClear.Enabled = True
    End Sub

    Private Sub btnExit2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit2.Click
        frmExitConfirm.Show() ' When You Click Exit The Exit Confirm Form Shows'
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        pgbTicketCalculator.Value = 0
        nudTicket.Value = 0
        lblTotal.Text = ""
    End Sub

    Private Sub tmrCalculate_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCalculate.Tick
        Dim costTax As Double = 0.067
        Dim costSubTotal As Double
        Dim costTotal As Double
        If nudTicket.Value > 25 Then
            Const ticketPrice1 As Decimal = 40
            costSubTotal = ticketPrice1 * nudTicket.Value
            costTotal = costSubTotal + (costSubTotal * costTax)
            pgbTicketCalculator.Increment(10)
        Else
            Const ticketPrice2 As Decimal = 49.75
            costSubTotal = ticketPrice2 * nudTicket.Value
            costTotal = costSubTotal + (costSubTotal * costTax)
            pgbTicketCalculator.Increment(10)
        End If
        If nudTicket.Value > 50 Then
            System.Windows.Forms.MessageBox.Show("Max Ammount Of Tickets You Can Buy Is 30, Select Something Smaller")
        End If
        If pgbTicketCalculator.Value = 100 Then
            tmrCalculate.Stop()
            lblTotal.Text = Format(costTotal, "Currency")
            System.Windows.Forms.MessageBox.Show("Calculation Completed") 'When The Progress Bar Fills Completely The Total Cost Is Displayed'
        End If
    End Sub

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        If nudTicket.Value > 50 Then
            System.Windows.Forms.MessageBox.Show("Max Ammount Of Tickets You Can Buy Is 50, Select Something Smaller") 'If Ticket Ammount Input Is Over 50 It Displays A Message To Choose Something Smaller'
        Else
            pgbTicketCalculator.Value = 0
            tmrCalculate.Start()
        End If
    End Sub

    Private Sub pgbTicketCalculator_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pgbTicketCalculator.Click

    End Sub
End Class