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()

            Dim intDay As Integer = 0
            Dim strMonth As String = ""
            Dim intYear As Integer = 0


            'Display the values in the first date object using the GetDate method
            Console.WriteLine(oDate.GetDate(intDay, strMonth, intYear))
            'Show how the GetDate method has changed the local variables by using ref
            Console.WriteLine("The Date is: " + intDay.ToString() + " " + strMonth + " " + intYear.ToString())

            '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