' Remove all resources    CalendarControl.MultipleResources.RemoveAll    fAnzMKzNameTab = Split(sMKzNamen, Chr(254))    fAnzMKzNrTab = Split(sMKzNr, Chr(254))    fAnzMKzTab = Split(sMkz, Chr(254))    Dim strConnectionString As String    strConnectionString = "Provider=Custom"        Dim arResources As New CalendarResources    Dim pRes0 As New CalendarResource    Dim pRes1 As CalendarResource        pRes0.SetDataProvider2 strConnectionString, True          If pRes0.DataProvider Is Nothing Then        Debug.Assert False        Exit Sub    End If        If Not pRes0.DataProvider.Open Then        If Not pRes0.DataProvider.create Then            Debug.Assert False            Exit Sub        End If    End If        '// ** schedules    Dim pSchedules As CalendarSchedules    Set pSchedules = pRes0.DataProvider.Schedules        If pSchedules Is Nothing Then        Exit Sub    End If        If pSchedules.Count < 1 Then        For li = 0 To UBound(fAnzMKzNrTab)            pSchedules.AddNewSchedule fAnzMKzTab(li)        Next li        pRes0.DataProvider.Save    End If        '// ** resources        pRes0.Name = pSchedules.Item(0).Name    pRes0.ScheduleIDs.Add pSchedules.Item(0).id    arResources.Add pRes0    For li = 1 To UBound(fAnzMKzNrTab)        Set pRes1 = New CalendarResource        pRes1.SetDataProvider pRes0.DataProvider, False        pRes1.Name = fAnzMKzTab(li)        pRes1.ScheduleIDs.Add pSchedules.Item(li).id        arResources.Add pRes1        Set pRes1 = Nothing    Next li                      CalendarControl.SetMultipleResources arResources'-------------------------------------------------------------------------------------'* This routine is used to clone Events and point to the right schedule'-------------------------------------------------------------------------------------Private Sub fsBKZPruef(ByRef sEvents As XtremeCalendarControl.CalendarEvents, ByRef sEvent As CalendarEvent)    On Error Resume Next    Dim lBkzNrTab() As String    Dim li As Integer    Dim lID As Integer    Dim lEvent As CalendarEvent    Dim lInhalt As String        lInhalt = sEvent.CustomProperties("BKZ_ZUWEISUNG")    If lInhalt = "" Then        Exit Sub    End If    lBkzNrTab = Split(lInhalt, vbCrLf)    For li% = 0 To UBound(lBkzNrTab) - 1        lID = fForm.mtGetMkzId(Val(lBkzNrTab(li)))        If lID > 0 Then            Set lEvent = sEvent.CloneEvent            lEvent.ScheduleID = lID            sEvents.Add lEvent            Set lEvent = Nothing        End If    Next liEn