SchedulerOptionsCustomization.AllowAppointmentConflicts Property

public Form1() {
    InitializeComponent();
    SchedulerResLocalizer.Active = new CustomSchedulerResLocalizer();
}

public class CustomSchedulerResLocalizer : SchedulerResLocalizer {
    public override string GetLocalizedString(SchedulerStringId id) {
        if(id == SchedulerStringId.Msg_Conflict)
            return "_YOUR_CUSTOM_MESSAGE_TEXT_";
        else 
            return base.GetLocalizedString(id);
    }    
}

Public Sub New()
    InitializeComponent()
    SchedulerResLocalizer.Active = New CustomSchedulerResLocalizer()
 End Sub

Public Class CustomSchedulerResLocalizer
    Inherits SchedulerResLocalizer

    Public Overrides Function GetLocalizedString(ByVal id As SchedulerStringId) As String
        If id Is SchedulerStringId.Msg_Conflict Then
            Return "_YOUR_CUSTOM_MESSAGE_TEXT_"
        Else
            Return MyBase.GetLocalizedString(id)
        End If
    End Function
End Class

    // Concurrent appointments with the same resource are not allowed.
    scheduler.OptionsCustomization.AllowAppointmentConflicts = AppointmentConflictsMode.Custom;
    scheduler.AllowAppointmentConflicts += Scheduler_AllowAppointmentConflicts;

    scheduler.Storage.Appointments.Clear();
    scheduler.GroupType = SchedulerGroupType.Resource;
    Appointment apt1 = scheduler.Storage.Appointments.CreateAppointment(AppointmentType.Normal, DateTime.Now, DateTime.Now.AddHours(2));
    apt1.ResourceId = scheduler.Storage.Resources[0].Id;
    scheduler.Storage.Appointments.Add(apt1);
    Appointment apt2 = scheduler.Storage.Appointments.CreateAppointment(AppointmentType.Normal, DateTime.Now, DateTime.Now.AddHours(2));
    apt2.ResourceId = scheduler.Storage.Resources[1].Id;
    scheduler.Storage.Appointments.Add(apt2);
static void Scheduler_AllowAppointmentConflicts(object sender, AppointmentConflictEventArgs e) {
    e.Conflicts.Clear();
    FillConflictedAppointmentsCollection(e.Conflicts, e.Interval, ((SchedulerControl)sender).Storage.Appointments.Items, e.AppointmentClone);
}
static void FillConflictedAppointmentsCollection(AppointmentBaseCollection conflicts, TimeInterval interval,
    AppointmentBaseCollection collection, Appointment currApt) {
    for (int i = 0; i < collection.Count; i++) {
        Appointment apt = collection[i];
        if (new TimeInterval(apt.Start, apt.End).IntersectsWith(interval) & !(apt.Start == interval.End || apt.End == interval.Start)) {
            if (apt.ResourceId == currApt.ResourceId) {
                conflicts.Add(apt);
            }
        }
        if (apt.Type == AppointmentType.Pattern) {
            FillConflictedAppointmentsCollection(conflicts, interval, apt.GetExceptions(), currApt);
        }
    }
}

    ' Concurrent appointments with the same resource are not allowed.
    scheduler.OptionsCustomization.AllowAppointmentConflicts = AppointmentConflictsMode.Custom
    AddHandler scheduler.AllowAppointmentConflicts, AddressOf Scheduler_AllowAppointmentConflicts

    scheduler.Storage.Appointments.Clear()
    scheduler.GroupType = SchedulerGroupType.Resource
    Dim apt1 As Appointment = scheduler.Storage.Appointments.CreateAppointment(AppointmentType.Normal, Date.Now, Date.Now.AddHours(2))
    apt1.ResourceId = scheduler.Storage.Resources(0).Id
    scheduler.Storage.Appointments.Add(apt1)
    Dim apt2 As Appointment = scheduler.Storage.Appointments.CreateAppointment(AppointmentType.Normal, Date.Now, Date.Now.AddHours(2))
    apt2.ResourceId = scheduler.Storage.Resources(1).Id
    scheduler.Storage.Appointments.Add(apt2)
Private Shared Sub Scheduler_AllowAppointmentConflicts(ByVal sender As Object, ByVal e As AppointmentConflictEventArgs)
    e.Conflicts.Clear()
    FillConflictedAppointmentsCollection(e.Conflicts, e.Interval, DirectCast(sender, SchedulerControl).Storage.Appointments.Items, e.AppointmentClone)
End Sub
Private Shared Sub FillConflictedAppointmentsCollection(ByVal conflicts As AppointmentBaseCollection, ByVal interval As TimeInterval, ByVal collection As AppointmentBaseCollection, ByVal currApt As Appointment)
    For i As Integer = 0 To collection.Count - 1
        Dim apt As Appointment = collection(i)
        If (New TimeInterval(apt.Start, apt.End)).IntersectsWith(interval) And Not(apt.Start = interval.End OrElse apt.End = interval.Start) Then
            If apt.ResourceId Is currApt.ResourceId Then
                conflicts.Add(apt)
            End If
        End If
        If apt.Type = AppointmentType.Pattern Then
            FillConflictedAppointmentsCollection(conflicts, interval, apt.GetExceptions(), currApt)
        End If
    Next i
End Sub