Userforma Eklenen Takvimde, Class Olayı Ekleme

[okan_88]

UserForm0.Controls.Add "MSCAL.Calendar.7", "Takvim"
With UserForm0.Controls("Takvim")
    .Width = 162
    .Height = 114
    .DayFont.Bold = False
    .DayFont.Size = 8
    .Year = Year(Now)
    .Month = Month(Now)
    .Day = Day(Now)
    .Visible = False
End With

Kodu ile userforma takvim ekledim.

Sub TakvimKontrol_0()

Dim sayi7 As Integer
Dim ctl7 As Control
 sayi7 = 0
    For Each ctl7 In UserForm0.Controls
        If TypeName(ctl7) = "Calendar" Then
            sayi7 = sayi7 + 1
            ReDim Preserve Bag7(1 To sayi7)
            Set Bag7(sayi7).Takvim_Kontrol_0 = ctl7
        End If
    Next ctl7

End Sub

Kodu ile module subrutine ekledim.

Public WithEvents Takvim_Kontrol_0 As MSCAL.Calendar

Kodu ile de class'a olay eklemek istiyorum fakat hata veriyor.
Class'a takvim olayını nasıl ekleyebirilim?