Imports DateTest

Module Module1

    Public Class Tester

        Public Sub Run()

            'Create an instance of the date object
            Dim oDate As MyDate = New MyDate(1986, "December", 10)

            'Create another instance of the date object using 
            'the overloaded constructer

            Dim oDate2 As MyDate = New MyDate("May", 12)

            'Display the values in the first date object
            oDate.DisplayDate()

            'Display the values in the second date object
            oDate2.DisplayDate()

            'Change the property values in oDate
            oDate.Year = 1977
            oDate.Month = "September"
            oDate.Day = 8

            'And then display them
            oDate.DisplayDate()

        End Sub

    End Class

    Sub Main()

        Dim t As Tester = New Tester()
        t.Run()

        Console.ReadLine()

    End Sub
End Module