Sub New() 
        InitializeComponent()

        Dim colors() As Color = {Color.LightBlue, Color.LightGreen, Color.LightYellow, Color.Red, Color.Orange, Color.Pink, Color.Purple, Color.Peru, Color.PowderBlue}
        Dim names() As String = {"Alan Smith", "Anne Dodsworth", "Boyan Mastoni", "Richard Duncan", "Maria Shnaider"}
        For i As Integer = 0 To names.Length - 1
            Dim resource As New Telerik.WinControls.UI.Resource()
            resource.Id = New EventId(i)
            resource.Name = names(i)
            resource.Color = colors(i) 
            Me.RadScheduler1.Resources.Add(resource)
        Next i

        Me.RadScheduler1.GroupType = GroupType.Resource
        Me.RadScheduler1.ActiveView.ResourcesPerView = 2


        Dim holiday As Holiday = New Holiday()
        holiday.Date = New DateTime(2023, 3, 8)
        holiday.HolidayName = "International Women's Day"
        holiday.Location = "Bulgaria"
        Dim generateAppointment As Boolean = True
        Me.RadScheduler1.Holidays.AddHoliday(holiday, generateAppointment)
    End Sub