CreateEventEx & multischedule

Hi, I am evaluating Codejock Xtreme Calendar ActiveX in a MsAccess Application.

I need to load a Custom Data Provider (Recordset filtered).

Using CreateEventEx, (as suggested in http://www.codejock.com/support/articles/com/calendar/cp_3.asp) it works fine.

Anyway I'm not able to load events grouped in a multischedule layout (Users/Events)

This is the code used.
***
...
...
Dim thisEvent As CalendarEvent
dim MyCalendar As new CalendarControl
Dim g_DataResourcesMan  As New CalendarResourcesManager
Dim pData As CalendarDataProvider
Dim pSchedules As CalendarSchedules
Dim pRCDesc As CalendarResourceDescription

Set MyCalendar = Me.CalendarControl0.Object
Set pData = MyCalendar.DataProvider
Set pSchedules = pData.Schedules
 
pSchedules.AddNewSchedule ("xxx")
pSchedules.item(0).ID = 1
pSchedules.AddNewSchedule ("yyy")
pSchedules.item(1).ID = 2
If pSchedules Is Nothing Or pSchedules.count = 0 Then exit Sub
   
Dim Btsched As Byte
For Btsched = 0 To pSchedules.count - 1
g_DataResourcesMan.AddResource pSchedules(Btsched).name, True
Next i

Set thisEV = MyCalendar.DataProvider.CreateEventEx(99)
thisEV.StartTime = CDate(Now)
thisEV.body= "Event1"
....
....
thisEV.ScheduleID = 2
pData.AddEvent thisEV

Set thisEV = MyCalendar.DataProvider.CreateEventEx(100)
thisEV.StartTime = CDate(Now+1)
thisEV.body= "Event2"
....
....
thisEV.ScheduleID = 1
pData.AddEvent thisEV
...
...
MyCalendar.DataProvider.AddEvent thisEV

For i = 0 To g_DataResourcesMan.ResourcesCount - 1
    Set pRCDesc = g_DataResourcesMan.Resource(i)
        pRCDesc.Resource.SetDataProvider pData, false
            pRCDesc.Resource.ScheduleIDs.Add pSchedules(i).ID
                pRCDesc.GenerateName = True
Next i

g_DataResourcesMan.ApplyToCalendar MyCalendar

***

And the calendar appears blank, while not using multischedule option, it's correttly pupulated.

Has anyone any suggestion/trick ?
I need to solve this problem before the purchase of the control.

Thanks.