Динамические контролы и обработка события Click

Private Cld As Control
 
Private Sub UserForm_Initialize()
Set Cld = Controls.Add('MSCAL.Calendar.7')
...
end sub

Private WithEvents cl As MSACAL.Calendar

Private Sub cl_Click()
    MsgBox '!!!'
End Sub
Private Sub UserForm_Initialize()
    Set cl = Me.Controls.Add('MSCAL.Calendar.7')
End Sub

Private Sub Workbook_Open()
    On Error Resume Next
    Application.ActiveWorkbook.VBProject.References.AddFromFile 'mscal.ocx'
    Call FS
End Sub
Private Sub FS()
    On Error GoTo 999
    UserForm1.Show
999:
    Err.Clear
End Sub

Private WithEvents Cld As MSACAL.Calendar
 
Private Sub UserForm_Initialize()
 
Set Cld = Me.Controls.Add('MSCAL.Calendar.7')
...

Dim Mycmd As Control
Dim CommandButton1 As New Class1
 
Private Sub UserForm_Initialize()
Set Mycmd = Controls.Add('MSCAL.Calendar.7')
Set CommandButton1.CommandButton1 = UserForm6.Controls(1)
End Sub

Public WithEvents CommandButton1 As Calendar
 
Private Sub CommandButton1_Click()
MsgBox 'OK'
End Sub

Dim Mycmd As Control
Dim Mycmd1 As Control
Dim CommandButton1 As New Class3
 
Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue('0:00:01'))
Set CommandButton1.CommandButton1 = UserForm6.ActiveControl
End Sub
 
Private Sub UserForm_Initialize()
Set Mycmd = Controls.Add('MSCAL.Calendar.7')
End Sub