Module DateModule
    Public Class MyDate
        'Properties
        Public Property Year As Integer = Now.Year
        Public Property Month As String
        Public Property Day As Integer

        'Constructer
        Public Sub New(ByVal intYear As Integer, ByVal strMonth As String, ByVal intDay As Integer)
            Year = intYear
            Month = strMonth
            Day = intDay
        End Sub

        'Overloaded Constructer
        Public Sub New(ByVal strMonth As String, ByVal intDay As Integer)
            Month = strMonth
            Day = intDay
        End Sub

        'A method to display the date
        Public Sub DisplayDate()
            Console.WriteLine(String.Format("The Date is: {0} {1} {2}", Day.ToString(), Month, Year.ToString()))
        End Sub

		'A method to return the date
		Public Function GetDate(ByRef intDay As Integer, ByRef strMonth As String, ByRef intYear As Integer) As String
		   intDay = Day
		   strMonth = Month
		   intYear = Year
		   Return (String.Format("The Date is: {0} {1} {2}", Day.ToString(),
		   Month, Year.ToString()))
		End Function
    End Class
End Module