Public Class Mese
    Private m_numMese As Integer
    
    Public Property NumMese() As Integer
        Get
            Return m_numMese
        End Get
        Set(ByVal value As Integer)
            m_numMese = value
        End Set
    End Property
    Private m_anno As Integer
    
    Public Property Anno() As Integer
        Get
            Return m_anno
        End Get
        Set(ByVal value As Integer)
            m_anno = value
        End Set
    End Property
    Public ReadOnly Property DescrMese() As String
        Get
            Dim mesi As String() = New String(11) {"Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno", _
              "Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre"}
            Return mesi(m_numMese - 1)
        End Get
    End Property
    
    Public Sub New()
    End Sub
    
    Public Sub New(ByVal anno As Integer, ByVal numMese As Integer)
        Me.m_anno = anno
        Me.m_numMese = numMese
    End Sub
    Public Overloads Overrides Function ToString() As String
        Return (Me.DescrMese & " ") + m_anno.ToString()
    End Function
End Class