Public Class MyDate

    'Properties
    Public Property Year As Integer = 2011
    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

End Class