VBAでカレンダーフォームを作成：日付が表示されません

前提・実現したいこと

Excel VBAでカレンダーフォームの作成をしています。
ユーザーフォームにはコンボボックスを2つ（オブジェクト名frmYear, frmMonth）あらかじめ作成しています。
以下のようにコードを書いたのですが、曜日は表示される一方で、日付のラベル（黒枠の四角）がフォームに表示されません。
.visible = True なども確認しましたが変化なしです。
この原因がわからないため、教えていただきたいく質問しました。

発生している問題・エラーメッセージ

エラーは発生していません。

該当のソースコード

VBA
1Private Sub UserForm_Initialize()
2    Dim lbl As MSForms.Label
3    Dim i As Integer, j As Integer, c As Integer
4    Dim weekdays() As Variant
5    '曜日の設定
6    weekdays() = Array("日", "月", "火", "水", "木", "金", "土")
7    For i = 1 To 7
8        Set lbl = Me.Controls.Add("Forms.Label.1", , True)
9        With lbl
10            .Caption = weekdays(i - 1)
11            .Width = 15
12            .Height = 15
13            .Left = 5 + (.Width + 2) * (i - 1)
14            .Top = 20
15            .BorderColor = &H666666
16            .BorderStyle = fmBorderStyleSingle
17            .Font.Size = 11
18        End With
19    Next
20　　'日付のラベル作成
21    c = 1
22    For i = 1 To 6  '縦方向
23        For j = 1 To 7    '横方向
24            Set lbl = Me.Controls.Add("Forms.Label.1", , True)
25            With lbl
26                .Width = 15
27                .Height = 15
28                .Left = 5 + (j - 1) * (Width + 2)
29                .Top = 20 + i * (Height + 2)
30                .BorderColor = &H666666
31                .BorderStyle = fmBorderStyleSingle
32                .Font.Size = 11
33                .TextAlign = fmTextAlignRight
34                .Name = "D" & c
35                c = c + 1
36            End With
37        Next
38    Next
39    '3年前から３年後までの西暦をコンボボックスに追加
40    For i = Year(Date) - 3 To Year(Date) + 3
41        cmbYear.AddItem i
42    Next
43    '月をコンボボックスに追加
44    For i = 1 To 12
45        cmbMonth.AddItem i
46    Next
47    'コンボボックスに値を代入すると、Changeイベントが発生する
48    '現在の西暦と月を表示しておく
49    cmbYear.Value = Year(Date)
50    cmbMonth.Value = Month(Date)
51End Sub