Aggiunta di spaziature nella mia classe Calendario

E adesso inserisco i parametri opzionali spaziatura anche nella mia classe Calendario che usa la classe griglia per rappresentare un calendario su un form.

Public Class Calendario(Of T As {New, Control})
    Dim giorni As Integer, miaData As Date, secondaData As Date
    Sub New(ByRef myForm As Form, ByVal mese As Integer, ByVal anno As Integer, ByVal xCoord As Integer, ByVal yCoord As Integer, ByVal formato As String, Optional ByVal HSpace As Integer = 0, Optional ByVal VSpace As Integer = 0)
        miaData = CDate("1/" & mese & "/" & anno)
        'calcolare il numero di giorni del mese
        secondaData = CDate("1/" & (mese + 1) & "/" & anno)
        giorni = DateDiff(DateInterval.Day, miaData, secondaData)
        Dim miaGriglia As New Griglia(Of T)(myForm, giorni, 1, GRIGLIA_ORIZZONTALE, xCoord, yCoord, HSpace, VSpace)
        For n As Integer = 1 To giorni

            If TypeOf miaGriglia.GridArray(n - 1) Is ListBox Then

                miaGriglia.GridArray(n - 1).items.add(UCase(miaData.ToString(formato)))
            Else
                miaGriglia.GridArray(n - 1).text = UCase(miaData.ToString(formato))
            End If

            miaData = miaData.AddDays(1)
        Next
    End Sub
End Class

Ed ecco il risultato:

Dim mioCalendario As New Calendario(Of Controllo)(Me, 8, 2013, 100, 0, "dddd dd MMMM yyyy", , 10)

Elementare!