Module Module1
    Public Class Tester
		Public Sub Run()
			''''''''''''''''''''''''''''''''''''LAB 1''''''''''''''''''''''''''''''''''''
			'Create an instance of the date object
			Dim oDate As MyDate = New MyDate(2005, "March", 14)

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

			'Change the property values in oDate
			oDate.Year = 2013
			oDate.Month = "September"
			oDate.Day = 21

			'And then display them
			oDate.DisplayDate()

			''''''''''''''''''''''''''''''''''''LAB 2''''''''''''''''''''''''''''''''''''
			'Create another instance of the date object using 
			'the overloaded constructer. 
			'The year will be set to the current year
			Dim oDate2 As MyDate = New MyDate("May", 12)

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

    Public Sub Main()
        Dim t As Tester = New Tester()
        t.Run()
        Console.ReadLine()
    End Sub
End Module