Scheduler - External Edit in RadDock Modify RadDateTimePicker Settings

[Dan]

I am using this example and would like to change the TimeView.StartTime to then radScheduler.DayStartTime.Hours and the TimeView.Interval to 15 minutes when the raddock displays as the appointment edit. I have tried numerous events but the changes do not apply.

Any help would be greatly appreciated, thanks in advanve . 

 Dim rtpStartTime As RadDateTimePicker = TryCast(rdAddEditAppointment.ContentContainer.FindControl("StartTime"), RadDateTimePicker)
            If Not IsNothing(rtpStartTime) Then
                rtpStartTime.TimeView.StartTime = New TimeSpan(rsScheduler.DayStartTime.Hours, 0, 0)
                rtpStartTime.TimeView.Interval = New TimeSpan(0, DefaultScheduleMinutes, 0)
           End If

            Dim rtpEndTime As RadDateTimePicker = TryCast(rdAddEditAppointment.ContentContainer.FindControl("EndTime"), RadDateTimePicker)
            If Not IsNothing(rtpEndTime) Then
                rtpEndTime.TimeView.EndTime = New TimeSpan(rsScheduler.DayEndTime.Hours, 0, 0)
                rtpEndTime.TimeView.Interval = New TimeSpan(0, DefaultScheduleMinutes, 0)
            End If

[Dan]

I was actually able to resolve my issue by removing the SharedCalendarID and the SharedTimeViewID.