Public Class frmSalesData

Private Sub frmSalesData_Load(ByVal sender As , ByVal e As ) Handles 

End Sub

Private Sub btnCalculate_Click(ByVal sender As , ByVal e As ) Handles 

    Dim numCars  CInt()

    While numCars  500

        MsgBox("Max limit of cars is 500")

          "0"

        numCars  0

        ()

    End While

    Dim NumTickets  CInt()

    While NumTickets  3000

        MsgBox("Max number of tickets sold cannot exceed 3000:")

          "0"

        NumTickets  0

        ()

    End While

    Dim numPopcorn ...