Colonna di labels spostabile con due parametri aggiuntivi.

Obiettivo: spostare la griglia di caselle a piacimento Per fare questo aggiungo due parametri.
Presto fatto!
Posso spostare tutta la colonna a mio piacimento mediante i parametri sinistra e alto.

    Private Sub creaColonna(mese As Integer, anno As Integer,
                            labelWidth As Integer, labelHeight As Integer,
                            horSpace As Integer, vertSpace As Integer,
                            sinistra As Integer, alto As Integer,
                            isCalendar As Boolean)

        Dim giorniDelMese As Integer = DaysInMonth(anno, mese)
        Dim perColumn = giorniDelMese
        Dim giorno As New Date(anno, mese, 1)
        For n = 0 To giorniDelMese - 1
            mLabel = New Label
            If isCalendar Then mLabel.Text = giorno.ToString("dddd" + " " + "dd/MMMM/yyyy").ToUpper
            giorno = giorno.AddDays(1)
            mLabel.Width = labelWidth
            mLabel.Height = labelHeight
            mLabel.BorderStyle = BorderStyle.FixedSingle
            mLabel.AutoSize = False
            mLabel.Left = sinistra + (mLabel.Width + horSpace) * (n \ perColumn)
            mLabel.Top = alto + (mLabel.Height + vertSpace) * (n Mod perColumn)
            Controls.Add(mLabel)
        Next
    End Sub

Ed ecco:

Perfetto! Ho raggiunto la massima flessibilità!