Dynamicaly add CalendarControl

Hi, I'm using VB6 and I want to dynamically add CalendarControl to one of SSTab control tabs.
Here's my code.

Dim WithEvents CalendarControl1 As CalendarControl

Then in Form_Load()

Set CalendarControl1 = Controls.Add("CalendarControl", "CalendarControl1", SSTab1) CalendarControl1.Visible = True

It works for standard controls, but not for ActiveX. I've also tried adding license:

Licenses.Add CalendarGlobalSettings.License

I would be grateful for any help