Imports C1.C1Schedule

Public Sub New()
　　InitializeComponent()

　　' 予定の公開方法を追加します。
　　Dim status As Status = AddStatus("休日", Colors.Red)

　　' 休日を追加します。
　　AddHoliday(New DateTime(2011, 1, 1), "元旦", status)
　　AddHoliday(New DateTime(2011, 1, 10), "成人の日", status)
End Sub

Private Function AddStatus(ByVal text As String, ByVal color As Color) As Status
　　Dim status As New Status(Colors.Transparent, text, "", New C1Brush(color))
　　C1Scheduler1.DataStorage.StatusStorage.Statuses.Add(status)

　　Return status
End Function

Private Sub AddHoliday(ByVal datetime As DateTime, ByVal subject As String, ByVal status As Status)
　　' 休日の情報を設定します。
　　Dim app As New Appointment()
　　app.AllDayEvent = True
　　app.Start = datetime
　　app.Subject = subject

　　' 予定の公開方法を設定して背景色を変更します。
　　app.BusyStatus = status

　　' 予定を追加します。
　　C1Scheduler1.DataStorage.AppointmentStorage.Appointments.Add(app)
End Sub

using C1.C1Schedule;

public MainPage()
{
　　InitializeComponent();

　　// 予定の公開方法を追加します。
　　Status status = AddStatus("休日", Colors.Red);

　　// 休日を追加します。
　　AddHoliday(new DateTime(2011, 1, 1), "元旦", status);
　　AddHoliday(new DateTime(2011, 1, 10), "成人の日", status);
}

private Status AddStatus(string text, Color color)
{
　　Status status = new Status(Colors.Transparent, text, "", new C1Brush(color));
　　c1Scheduler1.DataStorage.StatusStorage.Statuses.Add(status);

　　return status;
}

private void AddHoliday(DateTime datetime, string subject, Status status)
{
　　// 休日の情報を設定します。
　　Appointment app = new Appointment();
　　app.AllDayEvent = true;
　　app.Start = datetime;
　　app.Subject = subject;

　　// 予定の公開方法を設定して背景色を変更します。
　　app.BusyStatus = status;

　　// 予定を追加します。
　　c1Scheduler1.DataStorage.AppointmentStorage.Appointments.Add(app);
}