Public Class Form1
    Dim AdultTicketCost As Integer = 0
    Dim ChildTicketCost As Integer = 0
    Dim Under2TicketCost As Integer = 0
    Dim TotalCost As Integer = 0
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        DatePick_Departure.MinDate = Today.Date
        DatePick_Return.MinDate = Today.AddDays(1)

    End Sub

    Private Sub Btn_Help_Click(sender As Object, e As EventArgs) Handles Btn_Help.Click
        Me.Visible = False
        Form2.Visible = True
    End Sub
    Private Sub DatePick_Departure_ValueChanged(sender As Object, e As EventArgs) Handles DatePick_Departure.ValueChanged
        DatePick_Return.MinDate = DatePick_Departure.Value.AddDays(1)
    End Sub

    Private Sub Btn_Book_Click(sender As Object, e As EventArgs) Handles Btn_Book.Click
        LstBox_Info.Items.Clear()
        'Check Airports
        If CB_From.SelectedItem = "" Then
            MessageBox.Show("You cannot fly from nowhere.")
        ElseIf CB_To.SelectedItem = "" Then
            MessageBox.Show("You cannot fly to nowhere.")
        Else

            'Calculate price of one ticket
            If CB_To.SelectedItem = "France - Paris" Then
                AdultTicketCost = 82
                ChildTicketCost = 82
                Under2TicketCost = (82 * 0.1)
            ElseIf CB_To.SelectedItem = "Russia - Moscow" Then
                AdultTicketCost = 141
                ChildTicketCost = 141
                Under2TicketCost = (141 * 0.1)
            ElseIf CB_To.SelectedItem = "Germany - Berlin" Then
                AdultTicketCost = 69
                ChildTicketCost = 69
                Under2TicketCost = (69 * 0.1)
            ElseIf CB_To.SelectedItem = "Poland - Warsaw" Then
                AdultTicketCost = 51
                ChildTicketCost = 51
                Under2TicketCost = (51 * 0.1)
            ElseIf CB_To.SelectedItem = "Canada - Ottawa" Then
                AdultTicketCost = 350
                ChildTicketCost = 350
                Under2TicketCost = (350 * 0.1)
            ElseIf CB_To.SelectedItem = "Greece - Athens" Then
                AdultTicketCost = 157
                ChildTicketCost = 157
                Under2TicketCost = (157 * 0.1)
            ElseIf CB_To.SelectedItem = "Jamaica - Kingston" Then
                AdultTicketCost = 669
                ChildTicketCost = 669
                Under2TicketCost = (669 * 0.1)
            ElseIf CB_To.SelectedItem = "Japan - Tokyo" Then
                AdultTicketCost = 478
                ChildTicketCost = 478
                Under2TicketCost = (478 * 0.1)
            ElseIf CB_To.SelectedItem = "Norway - Oslo" Then
                AdultTicketCost = 40
                ChildTicketCost = 40
                Under2TicketCost = (40 * 0.1)
            ElseIf CB_To.SelectedItem = "Portugal - Lisbon" Then
                AdultTicketCost = 122
                ChildTicketCost = 122
                Under2TicketCost = (122 * 0.1)
            End If

            'Class cost
            If RB_Economy.Checked Then

            ElseIf RB_Business.Checked Then
                AdultTicketCost = AdultTicketCost * 4
                ChildTicketCost = ChildTicketCost * 4
                Under2TicketCost = Under2TicketCost * 4
            ElseIf RB_First.Checked Then
                AdultTicketCost = AdultTicketCost * 8
                ChildTicketCost = ChildTicketCost * 8
                Under2TicketCost = Under2TicketCost * 8
            End If

            'Multiple tickets
            AdultTicketCost = AdultTicketCost * NUD_Adult_tickets.Value
            ChildTicketCost = ChildTicketCost * NUD_Child_tickets.Value
            Under2TicketCost = Under2TicketCost * NUD_Under2_tickets.Value

            'Total cost
            TotalCost = AdultTicketCost + ChildTicketCost + Under2TicketCost

            'Special requirements

            'Displaying data - Departure and return destinations & dates
            LstBox_Info.Items.Add("Departing from: " & CB_From.SelectedItem & " on " & DatePick_Departure.Value)
            LstBox_Info.Items.Add("Destination: " & CB_To.SelectedItem)
            LstBox_Info.Items.Add("Returning from " & CB_To.SelectedItem & " on " & DatePick_Return.Value)
            LstBox_Info.Items.Add(" ")
            'Displaying data - Class
            If RB_Economy.Checked Then
                LstBox_Info.Items.Add("Class: Economy")
            End If
            If RB_Business.Checked Then
                LstBox_Info.Items.Add("Class: Business")
            End If
            If RB_First.Checked Then
                LstBox_Info.Items.Add("Class: First")
            End If
            'Displaying data - Ticket amounts
            LstBox_Info.Items.Add("Amount of Tickets")
            LstBox_Info.Items.Add("-----------------")
            LstBox_Info.Items.Add("Adult: " & NUD_Adult_tickets.Value)
            LstBox_Info.Items.Add("£" & AdultTicketCost)
            If NUD_Child_tickets.Value > 0 Then
                LstBox_Info.Items.Add("Child : " & NUD_Child_tickets.Value)
                LstBox_Info.Items.Add("£" & ChildTicketCost)
            End If
            If NUD_Under2_tickets.Value > 0 Then
                LstBox_Info.Items.Add("Under 2: " & NUD_Under2_tickets.Value)
                LstBox_Info.Items.Add("£" & Under2TicketCost)
            End If
            LstBox_Info.Items.Add(" ")
            'Displaying data - Total cost
            LstBox_Info.Items.Add("Total cost: £" & TotalCost)
            LstBox_Info.Items.Add(" ")
            'Displaying data - Extra Requests
            If CB_Assist.Checked Or CB_ExtraB.Checked Or CB_Gluten.Checked Or CB_Veg.Checked Or CB_Window.Checked Then
                LstBox_Info.Items.Add("Extra Requests:")
                LstBox_Info.Items.Add("---------------")
                If CB_Assist.Checked Then
                    LstBox_Info.Items.Add("Assistance")
                End If
                If CB_ExtraB.Checked Then
                    LstBox_Info.Items.Add("Extra Baggage")
                End If
                If CB_Gluten.Checked Then
                    LstBox_Info.Items.Add("Gluten Free")
                End If
                If CB_Veg.Checked Then
                    LstBox_Info.Items.Add("Vegetarian")
                End If
                If CB_Window.Checked Then
                    LstBox_Info.Items.Add("Window Seat")
                End If
            End If
        End If
    End Sub
End Class