'Visual Basic 2008/2010 Redefinition - Overridable en Overrides Object Oriented Programming
Module Exercise3Task
    Sub Main()
        Dim airport1 As Airport = New Airport("ZAV", "Brussels")
        Dim airport2 As Airport = New Airport("NYK", "New York Kennedy")
        '
        Dim flight1 As Flight = New Flight(airport1, airport2)
        Dim flight2 As Flight = New Flight(airport2, airport1)
        '
        Dim holiday1 As Holiday = New Holiday
        holiday1.Add(flight1)
        holiday1.Add(flight2)
        '
        For index As Integer = 0 To holiday1.Count - 1
            Console.WriteLine(holiday1.Item(index).ToString())
        Next
        '
        Console.ReadLine()
    End Sub
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2010 - Alle rechten voorbehouden.