Date come testi delle caselle del calendario

Ora riempiamo le caselle con tutte le date. Prendo il numero n di ordine delle caselle e ci aggiungo 1 dato che inizia con 0 e termina con numero-1, e lo uso come numero del giorno del mese nel contesto della data.
Dichiaro una variabile mese e una anno di tipo integer in modo da poter poi cambiare la definizione del mese e dell'anno in rapporto alle esigenze del programma.

    Dim mese As Integer = 9
    Dim anno As Integer = 2012
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Calcolo del numero dei giorni del mese
        Dim numero As Integer

        numero = DateTime.DaysInMonth(anno, mese)



        'definizione della variabile oggetto
        Dim casella As Label

        For n = 0 To numero - 1
            casella = New Label
            'attribuzione delle proprietà alla label appena istanziata
            With casella
                .BorderStyle = BorderStyle.FixedSingle
                .BackColor = Color.White
                .Left = 0
                .Top = .Height * (n Mod numero)
                .Text = CDate(n + 1 & "/" & mese & "/" & anno)
            End With
            Me.Controls.Add(casella)

        Next
    End Sub

ed ottengo il risultato voluto.