Uso della procedura template per creare un calendario

Ora posso creare un calendario, con una serie di labels in colonna, che mostrino la data.
Torno a usare la procedura template (speriamo di ricordare come si fa)...
La metto nel modulo Funzioni:

    Sub popola(Of oggetto)(ByVal frm As Form)
        Dim obj As Object
        For n = 0 To giorniDelMese(8, 2012).Length - 1
            obj = New Label
            With obj
                .left = 0
                .top = obj.height * (n Mod giorniDelMese(8, 2012).Length)
                .borderstyle = BorderStyle.FixedSingle
                .text = giorniDelMese(8, 2012)(n)
            End With
            frm.Controls.Add(obj)
        Next
    End Sub

Sì! Sono riuscito a creare a memoria una procedura template, che popola il form di labels in quanto specificato nella chiamata della procedura:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        popola(Of Label)(Me)
    End Sub

Ecco un pezzetto di calendario

...Che non è vero niente!
Mi rendo conto a posteriori che la procedura template non è stata costruita bene e il fatto che funzioni è illusorio!