Как наложить на форму количество лейблов, соответствующих количеству дней в месяце?

Dim ctlText As VB.TextBox
 
Private Sub Command1_Click()
    Set ctlText = Controls.Add("VB.TextBox", "tb1", Form1) ' создаем текстбокс
    ctlText.Move 100, 100, 2500, 100                       ' изменяем размеры
    ctlText.Visible = True                                 ' делаем видимым
    
End Sub
 
Private Sub Command2_Click()
    Controls.Remove "tb1"                   'удалить контрол
End Sub

Label1.Visible = False

Private Sub Command3_Click()
    Set ctlLabel = Controls.Add("VB.Label", "Label1", Form1) ' создаем лейбл
    ctlLabel.Move 100, 100, 700, 300                         ' изменяем размеры и местоположение
    ctlLabel.Caption = "Лабель1"
    ctlLabel.Visible = True                                  ' делаем видимым
End Sub

msgbox DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1)

к_во_дней_в_текущем_месяце=DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1) ' а-ля Ципихович:D

Option Explicit
Dim i, days
 
Private Sub Command1_Click()
    days = DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1)
    
    For i = 1 To days
        Controls.Add "VB.Label", "Label" & i, Form1                               ' создаем лейбл
        Controls("Label" & i).Move 100, (100 + 300) * i, 700, 300                 ' изменяем размеры и местоположение
        Controls("Label" & i).Caption = "Лабель" & i
        Controls("Label" & i).Visible = True
    Next i
 
 
End Sub
 
Private Sub Command2_Click()
    On Error Resume Next
    For i = 1 To 100
        If Not Controls("Label" & i) Is Nothing Then
           Controls.Remove "Label" & i
        End If
    Next i
End Sub

Private Sub Form_Load()
Dim i%
Label1(0).Visible = False
For i = 1 To DateSerial(Year(Date), Month(Date) + 1, 1) - DateSerial(Year(Date), Month(Date), 1)
  Load Label1(i)
    With Label1(i)
    .Visible = True
    .BorderStyle = 1
    .Caption = i
    .Width = 390
    .Height = 390
    .Top = 390
    .Left = i * 400
   End With
Next i
End Sub

Function Ndays(Y as integer, m as integer) as integer
 
            ND=Array(0,31,28,31,30,31,30,31,31,30,31,30,31)
 
            Ndays=Cint(ND(m))
 
            if (Y mod 4)=0 then Ndays=29
               
End Function

if (Y mod 4)=0 and m=2 then Ndays=29

if (Y mod 4)=0 and ((y mod 100)<>0 or (y mod 400)=0) and m=2 then Ndays=29