Ocean Tours Visual Basic

Program Name: Ocean Tours Trip Selection
' Author: Fernando Fresnillo
' Date: 03/09/2012
' Purpose: The Ocean Tours Trip Selection application determines the
' ocean tours available and calculates the cost of the tour.
Option Strict On
Public Class frmTours ' Class variables Private _intTwoHours As Integer = 2 Private _intThreeHours As Integer = 3 Private _intFourHours As Integer = 4 Private _intEightHours As Integer = 8 Private _strDeepSeaFishing As String = "Deep Sea Fishing" Private _strKayaking As String = "Kayaking" Private _strScuba As String = "Scuba" Private _strSnorkeling As String = "Snorkeling" Private _strGlassBottomBoat As String = "Glass Bottom Boat" Private _strParasailing As String = "Parasailing" Private Sub cboIsland_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboIsland.SelectedIndexChanged ' This event handler allows the user to enter the island choice ' and then calls subprocedures to place the island activities in the list. Dim intIslandChoice As Integer intIslandChoice = Me.cboIsland.SelectedIndex lstTours.Items.Clear() Select Case intIslandChoice Case 0

ArubaTours() Case 1 JamaicaTours() Case 2 KeyWestTours() End Select ' Make items visible in the window lblParty.Visible = True txtNumberInParty.Visible = True lblSelect.Visible = True lstTours.Visible = True btnFindCost.Visible = True btnClear.Visible = True lblTourType.Visible = True lblCost.Visible = True lblLength.Visible = True ' Clear all labels lblTourType.Text = "" lblCost.Text = "" lblLength.Text = "" ' Set focus on the number in party text box