Public Class Form1
    Public array_destination(6, 2)
    Private Sub on_load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Destination amsterdam, infants
        array_destination(0, 0) = 100
        'Destination amsterdam, children
        array_destination(0, 1) = 200
        'Destination amsterdam, adults
        array_destination(0, 2) = 400
        'Destination Copenhagen is 1
        array_destination(1, 0) = 100
        'Destination Hamburg is 2
        array_destination(2, 0) = 115
        'Destination Lisbon is 3
        array_destination(3, 0) = 125
        'Destination Munich is 4
        array_destination(4, 0) = 115
        'Destination Sofia is 5
        array_destination(5, 0) = 75
        'Destination Vienna is 6
        array_destination(6, 0) = 300

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Adds departure airports to the departures combo box, d'oh
        cmbDepart.Items.Add("Aberdeen")
        cmbDepart.Items.Add("Birmingham")
        cmbDepart.Items.Add("Bangkok")
        cmbDepart.Items.Add("Dundee")
        cmbDepart.Items.Add("London Gatwick")
        cmbDepart.Items.Add("London Heathrow")
        cmbDepart.Items.Add("Luton")
        cmbDepart.Items.Add("Manchester")

        'Adds destination airports to the destinations combo box, duh
        cmbDestination.Items.Add("Amsterdam")
        cmbDestination.Items.Add("Copenhagen")
        cmbDestination.Items.Add("Hamburg")
        cmbDestination.Items.Add("Lisbon")
        cmbDestination.Items.Add("Munich")
        cmbDestination.Items.Add("Sofia")
        cmbDestination.Items.Add("Vienna")
    End Sub
    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        cmbDepart.Text = ("Depart From->")
        cmbDestination.Text = ("Arrive At->")
        txtAdultsNumber.Text = (" ")
        txtChildrenNumber.Text = (" ")
        txtInfantsNumber.Text = (" ")
        dtpDepartDate.Text = Nothing
        dtpReturnDate.Text = Nothing
    End Sub

    Private Sub btnBasket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBasket.Click
        Dim total_infants_price As Integer
        total_infants_price = array_destination(cmbDestination.SelectedIndex, 0) * Integer.Parse(txtInfantsNumber.Text)
        MessageBox.Show(total_infants_price)

        'I love this shit
    End Sub

    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        'MessageBox.Show("Fine, don't go on holiday!")
        Me.Close()
    End Sub

    Private Sub txtAdultsNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtAdultsNumber.TextChanged
        'lstSubtotal.Items.Insert(0, cmbDestination)
        'lol, mature code
    End Sub
End Class