Public Class RadForm1
    Sub New()

        RadSchedulerLocalizationProvider.CurrentProvider = New ItalianSchedulerLocalizationProvider()
        InitializeComponent()

      

    End Sub
    Private Sub RadForm1_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
        ' 
    End Sub
End Class
Public Class ItalianSchedulerLocalizationProvider
    Inherits RadSchedulerLocalizationProvider

    Public Overrides Function GetLocalizedString(id As String) As String
        Select Case id
            Case RadSchedulerStringId.NextAppointment
                Return "Prossimi Appuntamenti"
            Case RadSchedulerStringId.PreviousAppointment
                Return "Appuntamenti Precedenti"
            Case RadSchedulerStringId.AppointmentDialogTitle
                Return "Modifica Appuntamento"
            Case RadSchedulerStringId.AppointmentDialogSubject
                Return "Oggetto:"
            Case RadSchedulerStringId.AppointmentDialogLocation
                Return "Posizione:"
            Case RadSchedulerStringId.AppointmentDialogBackground
                Return "Sfondo:"
            Case RadSchedulerStringId.AppointmentDialogDescription
                Return "Descrizione:"
            Case RadSchedulerStringId.AppointmentDialogStartTime
                Return "Ora di inizio:"
            Case RadSchedulerStringId.AppointmentDialogEndTime
                Return "Ora di fine:"
            Case RadSchedulerStringId.AppointmentDialogAllDay
                Return "Tutto il giorno"
            Case RadSchedulerStringId.AppointmentDialogResource
                Return "Risorsa:"
            Case RadSchedulerStringId.AppointmentDialogStatus
                Return "Mostra come:"
            Case RadSchedulerStringId.AppointmentDialogOK
                Return "OK"
            Case RadSchedulerStringId.AppointmentDialogCancel
                Return "Annulla"
            Case RadSchedulerStringId.AppointmentDialogDelete
                Return "Elimina"
            Case RadSchedulerStringId.AppointmentDialogRecurrence
                Return "Ricorrenza"
            Case RadSchedulerStringId.OpenRecurringDialogTitle
                Return "Apri elemento ricorrente"
            Case RadSchedulerStringId.DeleteRecurrenceDialogOK
                Return "OK"
            Case RadSchedulerStringId.OpenRecurringDialogOK
                Return "OK"
            Case RadSchedulerStringId.DeleteRecurrenceDialogCancel
                Return "Annulla"
            Case RadSchedulerStringId.OpenRecurringDialogCancel
                Return "Annulla"
            Case RadSchedulerStringId.OpenRecurringDialogLabel
                Return """{0}"" è un appuntamento" & vbLf & "ricorrente. Vuoi aprire" & vbLf & "la sola occorenza o la serie?"
            Case RadSchedulerStringId.OpenRecurringDialogRadioOccurrence
                Return "Apri questa occorrenza."
            Case RadSchedulerStringId.OpenRecurringDialogRadioSeries
                Return "Apri la serie."
            Case RadSchedulerStringId.DeleteRecurrenceDialogTitle
                Return "Conferma cancellazione"
            Case RadSchedulerStringId.DeleteRecurrenceDialogRadioOccurrence
                Return "Elimina questa occorrenza."
            Case RadSchedulerStringId.DeleteRecurrenceDialogRadioSeries
                Return "Elimina la serie."
            Case RadSchedulerStringId.DeleteRecurrenceDialogLabel
                Return "Vuoi eliminare tutte le occorrenze dell'appuntamento ricorrente ""{0}"", o sola questa?"
            Case RadSchedulerStringId.RecurrenceDragDropCreateExceptionDialogText
                Return "Hai modificato la data di una singola occorrenza di un appuntamento ricorrente. Per modificare tutte le date, aprire la serie." & vbLf & "Vuoi cambiare solo questa?"
            Case RadSchedulerStringId.RecurrenceDragDropValidationSameDateText
                Return "Due occorrenze della stessa serie non possono verificarsi nello stesso giorno."
            Case RadSchedulerStringId.RecurrenceDragDropValidationSkipOccurrenceText
                Return "Non è possibile riprogrammare un'occorrenza di un appuntamento ricorrente se viene saltata un'occorrenza successiva dello stesso appuntamento."
            Case RadSchedulerStringId.RecurrenceDialogMessageBoxText
                Return "La data di inizio deve essere precedente alla data di fine."
            Case RadSchedulerStringId.RecurrenceDialogMessageBoxWrongRecurrenceRuleText
                Return "Il modello di ricorrenza non è valido."
            Case RadSchedulerStringId.RecurrenceDialogMessageBoxTitle
                Return "Errore di validazione"
            Case RadSchedulerStringId.RecurrenceDialogTitle
                Return "Modifica ricorrenza"
            Case RadSchedulerStringId.RecurrenceDialogAppointmentTimeGroup
                Return "Orario dell'appuntamento"
            Case RadSchedulerStringId.RecurrenceDialogDuration
                Return "Durata:"
            Case RadSchedulerStringId.RecurrenceDialogAppointmentEnd
                Return "Fine:"
            Case RadSchedulerStringId.RecurrenceDialogAppointmentStart
                Return "Inizio:"
            Case RadSchedulerStringId.RecurrenceDialogRecurrenceGroup
                Return "Modello di ricorrenza"
            Case RadSchedulerStringId.RecurrenceDialogRangeGroup
                Return "Intervallo di ricorrenza"
            Case RadSchedulerStringId.RecurrenceDialogOccurrences
                Return "occorrenze"
            Case RadSchedulerStringId.RecurrenceDialogRecurrenceStart
                Return "Inizio:"
            Case RadSchedulerStringId.RecurrenceDialogYearly
                Return "Annuale"
            Case RadSchedulerStringId.RecurrenceDialogHourly
                Return "Ora"
            Case RadSchedulerStringId.RecurrenceDialogMonthly
                Return "Mese"
            Case RadSchedulerStringId.RecurrenceDialogWeekly
                Return "Settimana"
            Case RadSchedulerStringId.RecurrenceDialogDaily
                Return "Giorno"
            Case RadSchedulerStringId.RecurrenceDialogEndBy
                Return "Fine entro:"
            Case RadSchedulerStringId.RecurrenceDialogEndAfter
                Return "Fine dopo:"
            Case RadSchedulerStringId.RecurrenceDialogNoEndDate
                Return "Nessuna data di fine"
            Case RadSchedulerStringId.RecurrenceDialogAllDay
                Return "Evento tutto il giorno"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown1Day
                Return "1 giorno"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown2Days
                Return "2 giorni"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown3Days
                Return "3 giorni"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown4Days
                Return "4 giorni"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown1Week
                Return "1 settimana"
            Case RadSchedulerStringId.RecurrenceDialogDurationDropDown2Weeks
                Return "2 settimane"
            Case RadSchedulerStringId.RecurrenceDialogOK
                Return "OK"
            Case RadSchedulerStringId.RecurrenceDialogCancel
                Return "Annulla"
            Case RadSchedulerStringId.RecurrenceDialogRemoveRecurrence
                Return "Elimina Ricorrenza"
            Case RadSchedulerStringId.HourlyRecurrenceEvery
                Return "Ogni"
            Case RadSchedulerStringId.HourlyRecurrenceHours
                Return "Ora(e)"
            Case RadSchedulerStringId.DailyRecurrenceEveryDay
                Return "Ogni"
            Case RadSchedulerStringId.DailyRecurrenceEveryWeekday
                Return "Ogni giorno della settimana"
            Case RadSchedulerStringId.DailyRecurrenceDays
                Return "giorno(i)"
            Case RadSchedulerStringId.WeeklyRecurrenceRecurEvery
                Return "Ricorre ogni"
            Case RadSchedulerStringId.WeeklyRecurrenceWeeksOn
                Return "settimana(e) dopo:"
            Case RadSchedulerStringId.WeeklyRecurrenceSunday
                Return "Domenica"
            Case RadSchedulerStringId.WeeklyRecurrenceMonday
                Return "Lunedì"
            Case RadSchedulerStringId.WeeklyRecurrenceTuesday
                Return "Martedì"
            Case RadSchedulerStringId.WeeklyRecurrenceWednesday
                Return "Mercoledì"
            Case RadSchedulerStringId.WeeklyRecurrenceThursday
                Return "Giovedì"
            Case RadSchedulerStringId.WeeklyRecurrenceFriday
                Return "Venerdì"
            Case RadSchedulerStringId.WeeklyRecurrenceSaturday
                Return "Sabato"
            Case RadSchedulerStringId.WeeklyRecurrenceDay
                Return "Giorno"
            Case RadSchedulerStringId.WeeklyRecurrenceWeekday
                Return "Giorno lavorativo"
            Case RadSchedulerStringId.WeeklyRecurrenceWeekendDay
                Return "Giorno del fine settimana"
            Case RadSchedulerStringId.MonthlyRecurrenceDay
                Return "Giorno"
            Case RadSchedulerStringId.MonthlyRecurrenceWeek
                Return "Il"
            Case RadSchedulerStringId.MonthlyRecurrenceDayOfMonth
                Return "di ogni"
            Case RadSchedulerStringId.MonthlyRecurrenceMonths
                Return "mese(i)"
            Case RadSchedulerStringId.MonthlyRecurrenceWeekOfMonth
                Return "di ogni"
            Case RadSchedulerStringId.MonthlyRecurrenceFirst
                Return "Primo"
            Case RadSchedulerStringId.MonthlyRecurrenceSecond
                Return "Secondo"
            Case RadSchedulerStringId.MonthlyRecurrenceThird
                Return "Terzo"
            Case RadSchedulerStringId.MonthlyRecurrenceFourth
                Return "Quarto"
            Case RadSchedulerStringId.MonthlyRecurrenceLast
                Return "Ultimo"
            Case RadSchedulerStringId.YearlyRecurrenceDayOfMonth
                Return "Ogni"
            Case RadSchedulerStringId.YearlyRecurrenceWeekOfMonth
                Return "Il"
            Case RadSchedulerStringId.YearlyRecurrenceOfMonth
                Return "di"
            Case RadSchedulerStringId.YearlyRecurrenceJanuary
                Return "Gennaio"
            Case RadSchedulerStringId.YearlyRecurrenceFebruary
                Return "Febbraio"
            Case RadSchedulerStringId.YearlyRecurrenceMarch
                Return "Marzo"
            Case RadSchedulerStringId.YearlyRecurrenceApril
                Return "Aprile"
            Case RadSchedulerStringId.YearlyRecurrenceMay
                Return "Maggio"
            Case RadSchedulerStringId.YearlyRecurrenceJune
                Return "Giugno"
            Case RadSchedulerStringId.YearlyRecurrenceJuly
                Return "Luglio"
            Case RadSchedulerStringId.YearlyRecurrenceAugust
                Return "Agosto"
            Case RadSchedulerStringId.YearlyRecurrenceSeptember
                Return "Settembre"
            Case RadSchedulerStringId.YearlyRecurrenceOctober
                Return "Ottobre"
            Case RadSchedulerStringId.YearlyRecurrenceNovember
                Return "Novembre"
            Case RadSchedulerStringId.YearlyRecurrenceDecember
                Return "Dicembre"
            Case RadSchedulerStringId.BackgroundNone
                Return "Nessuna"
            Case RadSchedulerStringId.BackgroundImportant
                Return "Importante"
            Case RadSchedulerStringId.BackgroundBusiness
                Return "Business"
            Case RadSchedulerStringId.BackgroundPersonal
                Return "Personale"
            Case RadSchedulerStringId.BackgroundVacation
                Return "Vacanza"
            Case RadSchedulerStringId.BackgroundMustAttend
                Return "Deve Frequentare"
            Case RadSchedulerStringId.BackgroundTravelRequired
                Return "Viaggio Richiesto"
            Case RadSchedulerStringId.BackgroundNeedsPreparation
                Return "Necessita di preparazione"
            Case RadSchedulerStringId.BackgroundBirthday
                Return "Compleanno"
            Case RadSchedulerStringId.BackgroundAnniversary
                Return "Anniversario"
            Case RadSchedulerStringId.BackgroundPhoneCall
                Return "Chiamata Tel."
            Case RadSchedulerStringId.StatusBusy
                Return "Occupato"
            Case RadSchedulerStringId.StatusFree
                Return "Libero"
            Case RadSchedulerStringId.StatusTentative
                Return "Tentative"
            Case RadSchedulerStringId.StatusUnavailable
                Return "Non Disponibile"
            Case RadSchedulerStringId.ReminderNone
                Return "Nessuno"
            Case RadSchedulerStringId.ReminderOneMinute
                Return "1 minuto"
            Case RadSchedulerStringId.ReminderMinutes
                Return " minuti"
            Case RadSchedulerStringId.ReminderOneSecond
                Return "1 secondo"
            Case RadSchedulerStringId.ReminderSeconds
                Return " secondi"
            Case RadSchedulerStringId.ReminderDays
                Return " giorni"
            Case RadSchedulerStringId.ReminderWeeks
                Return " settimane"
            Case RadSchedulerStringId.ReminderHours
                Return " ore"
            Case RadSchedulerStringId.ReminderZeroMinutes
                Return "0 minuti"
            Case RadSchedulerStringId.ReminderFiveMinutes
                Return "5 minuti"
            Case RadSchedulerStringId.ReminderTenMinutes
                Return "10 minuti"
            Case RadSchedulerStringId.ReminderFifteenMinutes
                Return "15 minuti"
            Case RadSchedulerStringId.ReminderThirtyMinutes
                Return "30 minuti"
            Case RadSchedulerStringId.ReminderOneHour
                Return "1 ora"
            Case RadSchedulerStringId.ReminderTwoHours
                Return "2 ore"
            Case RadSchedulerStringId.ReminderThreeHours
                Return "3 ore"
            Case RadSchedulerStringId.ReminderFourHours
                Return "4 ore"
            Case RadSchedulerStringId.ReminderFiveHours
                Return "5 ore"
            Case RadSchedulerStringId.ReminderSixHours
                Return "6 ore"
            Case RadSchedulerStringId.ReminderSevenHours
                Return "7 ore"
            Case RadSchedulerStringId.ReminderEightHours
                Return "8 ore"
            Case RadSchedulerStringId.ReminderNineHours
                Return "9 ore"
            Case RadSchedulerStringId.ReminderTenHours
                Return "10 ore"
            Case RadSchedulerStringId.ReminderElevenHours
                Return "11 ore"
            Case RadSchedulerStringId.ReminderTwelveHours
                Return "12 ore"
            Case RadSchedulerStringId.ReminderEighteenHours
                Return "18 ore"
            Case RadSchedulerStringId.ReminderOneDay
                Return "1 giorno"
            Case RadSchedulerStringId.ReminderTwoDays
                Return "2 giorni"
            Case RadSchedulerStringId.ReminderThreeDays
                Return "3 giorni"
            Case RadSchedulerStringId.ReminderFourDays
                Return "4 giorni"
            Case RadSchedulerStringId.ReminderOneWeek
                Return "1 settimana"
            Case RadSchedulerStringId.ReminderTwoWeeks
                Return "2 settimane"
            Case RadSchedulerStringId.Reminder
                Return "Promemoria"
            Case RadSchedulerStringId.ContextMenuNewAppointment
                Return "Nuovo Appuntamento"
            Case RadSchedulerStringId.ContextMenuEditAppointment
                Return "Modifica Appuntamento"
            Case RadSchedulerStringId.ContextMenuNewRecurringAppointment
                Return "Nuovo appuntamento ricorrente"
            Case RadSchedulerStringId.ContextMenu60Minutes
                Return "60 Minuti"
            Case RadSchedulerStringId.ContextMenu30Minutes
                Return "30 Minuti"
            Case RadSchedulerStringId.ContextMenu15Minutes
                Return "15 Minuti"
            Case RadSchedulerStringId.ContextMenu10Minutes
                Return "10 Minuti"
            Case RadSchedulerStringId.ContextMenu6Minutes
                Return "6 Minuti"
            Case RadSchedulerStringId.ContextMenu5Minutes
                Return "5 Minuti"
            Case RadSchedulerStringId.ContextMenuNavigateToNextView
                Return "Vista Successiva"
            Case RadSchedulerStringId.ContextMenuNavigateToPreviousView
                Return "Vista Precedente"
            Case RadSchedulerStringId.ContextMenuTimescales
                Return "Scale temporali"
            Case RadSchedulerStringId.ContextMenuTimescalesYear
                Return "Anno"
            Case RadSchedulerStringId.ContextMenuTimescalesMonth
                Return "Mese"
            Case RadSchedulerStringId.ContextMenuTimescalesWeek
                Return "Settimana"
            Case RadSchedulerStringId.ContextMenuTimescalesDay
                Return "Giorno"
            Case RadSchedulerStringId.ContextMenuTimescalesHour
                Return "Ora"
            Case RadSchedulerStringId.ContextMenuTimescalesHalfHour
                Return "30 minuti"
            Case RadSchedulerStringId.ContextMenuTimescalesFifteenMinutes
                Return "15 minuti"
            Case RadSchedulerStringId.ErrorProviderWrongAppointmentDates
                Return "L'ora di fine dell'appuntamento è inferiore o uguale all'ora di inizio!"
            Case RadSchedulerStringId.ErrorProviderWrongExceptionDuration
                Return "L'intervallo di ricorrenza deve essere maggiore o uguale alla durata dell'appuntamento!"
            Case RadSchedulerStringId.ErrorProviderExceptionSameDate
                Return "Due occorrenze della stessa serie non possono verificarsi nello stesso giorno."
            Case RadSchedulerStringId.ErrorProviderExceptionSkipOverDate
                Return "L'eccezione di ricorrenza non può ignorare un'occorrenza successiva dello stesso appuntamento."
            Case RadSchedulerStringId.TimeZoneLocal
                Return "Locale"
            Case RadSchedulerStringId.CategoryNone
                Return "Personale"
            Case RadSchedulerStringId.CategoryBlue
                Return "Riunione"
            Case RadSchedulerStringId.CategoryGray
                Return "Contabilita"
            Case RadSchedulerStringId.CategoryGreen
                Return "SiCoGe Impegno"
            Case RadSchedulerStringId.CategoryLavender
                Return "SiCoGe OP"
            Case RadSchedulerStringId.CategoryOlive
                Return "SiCoGe OA"
            Case RadSchedulerStringId.CategoryOrange
                Return "SiCoGe Var. Competenza"
            Case RadSchedulerStringId.CategoryOrange
                Return "SiCoGe Var. Cassa"

            Case Else
                Debug.Print(id)
                Return "*UNKNOWN"
        End Select
    End Function

    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

    Public Sub New()
        InitializeComponent()

        RadSchedulerReminder1.TimeInterval = 500

        Dim appointment As New Appointment(DateTime.Now.AddDays(-1), TimeSpan.FromHours(1), "A")
        appointment.Reminder = New TimeSpan(10000)
        Me.RadScheduler1.Appointments.Add(appointment)

        Dim appointment2 As New Appointment(DateTime.Now.AddHours(-2), TimeSpan.FromHours(1), "B")
        appointment2.Reminder = New TimeSpan(10000)
        Me.RadScheduler1.Appointments.Add(appointment2)

        RadSchedulerReminder1.StartReminderInterval = Date.Now.AddDays(-1)
        RadSchedulerReminder1.EndReminderInterval = Date.Now.AddDays(1)

    End Sub

    Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        RadSchedulerReminder1.StartReminder()

        RadScheduler1.ActiveViewType = SchedulerViewType.Week

    End Sub

    Public Sub New()
        InitializeComponent()

        allTimeZones = SchedulerTimeZone.GetSchedulerTimeZones()
        Dim mumbai As SchedulerTimeZone = GetSpecificTimeZone("India Standard Time")
        If Not mumbai.Equals(Me.RadScheduler1.GetDayView().DefaultTimeZone) Then
            RadScheduler1.GetDayView().TimeZones.Insert(0, mumbai)
        End If

        Dim utc As SchedulerTimeZone = GetSpecificTimeZone("UTC")
        If Not utc.Equals(Me.RadScheduler1.GetDayView().DefaultTimeZone) Then
            RadScheduler1.GetDayView().TimeZones.Insert(0, utc)
        End If
    End Sub
    Private Function GetSpecificTimeZone(_TimeZoneInformationID As String) As SchedulerTimeZone
        Try
            Dim tempZone As New SchedulerTimeZone((From t In allTimeZones.Where(Function(x) x.TimeZoneInformation.Id Like _TimeZoneInformationID) Select t.TimeZoneInformation).First)
            tempZone.Label = tempZone.TimeZoneInformation.BaseUtcOffset.ToString()
            Return tempZone
        Catch ex As Exception
            Return Nothing
        End Try
    End Function

Public Class Form1

    Private allTimeZones As List(Of SchedulerTimeZone)

    Public Sub New()
        InitializeComponent()

        Me.RadScheduler1.ElementProvider = New CustomSchedulerElementProvider(Me.RadScheduler1)


        allTimeZones = SchedulerTimeZone.GetSchedulerTimeZones()
        Dim mumbai As SchedulerTimeZone = GetSpecificTimeZone("India Standard Time")
        If Not mumbai.Equals(Me.RadScheduler1.GetDayView().DefaultTimeZone) Then
            RadScheduler1.GetDayView().TimeZones.Insert(0, mumbai)
        End If

        Dim utc As SchedulerTimeZone = GetSpecificTimeZone("UTC")
        If Not utc.Equals(Me.RadScheduler1.GetDayView().DefaultTimeZone) Then
            RadScheduler1.GetDayView().TimeZones.Insert(0, utc)
        End If
    End Sub
    Private Function GetSpecificTimeZone(_TimeZoneInformationID As String) As SchedulerTimeZone
        Try
            Dim tempZone As New SchedulerTimeZone((From t In allTimeZones.Where(Function(x) x.TimeZoneInformation.Id Like _TimeZoneInformationID) Select t.TimeZoneInformation).First)
            tempZone.Label = tempZone.TimeZoneInformation.BaseUtcOffset.ToString()
            Return tempZone
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
End Class

Public Class CustomSchedulerElementProvider
        Inherits SchedulerElementProvider

        Public Sub New(scheduler As RadScheduler)
            MyBase.New(scheduler)
        End Sub

        Public Overrides Function CreateRulerPrimitive(area As DayViewAppointmentsArea, timeZone As SchedulerTimeZone) As RulerPrimitive
            Dim ruler As RulerPrimitive = MyBase.CreateRulerPrimitive(area, timeZone)
            ruler.RulerRenderer = New CustomRulerRenderer(ruler)
            Return ruler
        End Function
    End Class

Public Class CustomRulerRenderer
    Inherits RulerRenderer


    Public Sub New(ruler As RulerPrimitive)
        MyBase.New(ruler)
    End Sub

    Public Overrides Sub RenderHour(g As IGraphics, hour As Integer, bounds As RectangleF)
        hour += Me.ruler.StartScale + CInt(Math.Ceiling(Me.ruler.DefaultOffset))
        Dim currentTime As DateTime = DateTime.Now.Date.AddHours(hour)
        Dim percent As Single = Me.ruler.DefaultOffset - CSng(Math.Floor(CDbl(Me.ruler.DefaultOffset)))
        Dim x As Integer = Me.ruler.HourLineStartPosition
        Dim y As Single = CSng(Math.Ceiling(bounds.Top + (GetSpecificRange() * bounds.Height) * percent))
        Dim hourText As String = ""

        If Me.ruler.FormatStrings.HoursFormatString IsNot Nothing Then
            hourText = currentTime.ToString(Me.ruler.FormatStrings.HoursFormatString)
        End If

        'Dim args As RulerTextFormattingEventArgs = New RulerTextFormattingEventArgs(hourText, RulerTextFormattingContext.Hour, currentTime)
        'Me.ruler.Scheduler.OnRulerTextFormatting(args)
        'hourText = args.Text
        Dim minutesText As String = ""

        If Me.ruler.FormatStrings.MinutesFormatString IsNot Nothing Then
            minutesText = currentTime.ToString(Me.ruler.FormatStrings.MinutesFormatString)
        End If

        'args = New RulerTextFormattingEventArgs(minutesText, RulerTextFormattingContext.Minute, currentTime)
        'Me.ruler.scheduler.OnRulerTextFormatting(args)
        'minutesText = args.Text
        Dim measuredSize As Size = TextRenderer.MeasureText(hourText, Me.ruler.Font)
        measuredSize = DrawTimeText(g, y, hourText, minutesText, measuredSize)

        If ruler.RightToLeft Then
            g.DrawLine(Me.ruler.HourLineColor, Me.ruler.Bounds.Left, y, Me.ruler.Bounds.Width - x, y, Me.ruler.DpiScaleFactor.Height)
            g.DrawLine(Me.ruler.HourLineShadowColor, Me.ruler.Bounds.Left, y + Me.ruler.DpiScaleFactor.Height, Me.ruler.Bounds.Width - x, y + Me.ruler.DpiScaleFactor.Height, Me.ruler.DpiScaleFactor.Height)
        Else
            g.DrawLine(Me.ruler.HourLineColor, x, y, Me.ruler.Bounds.Width, y, Me.ruler.DpiScaleFactor.Height)
            g.DrawLine(Me.ruler.HourLineShadowColor, x, y + Me.ruler.DpiScaleFactor.Height, Me.ruler.Bounds.Width, y + Me.ruler.DpiScaleFactor.Height, Me.ruler.DpiScaleFactor.Height)
        End If
    End Sub

    Friend Function GetSpecificRange() As Integer
        Return 60 / CInt(Me.ruler.RangeFactor)
    End Function
End Class

    Private Sub RadScheduler1_AppointmentDeleted(sender As Object, e As SchedulerAppointmentEventArgs)
        Me.RadScheduler1.ActiveViewType = SchedulerViewType.Day
        Me.RadScheduler1.ActiveViewType = SchedulerViewType.Agenda
    End Sub

    Sub New()

        InitializeComponent()

        Dim culture As CultureInfo = New CultureInfo("en-US")
        culture.DateTimeFormat.FirstDayOfWeek = DayOfWeek.Monday
        culture.DateTimeFormat.CalendarWeekRule = CalendarWeekRule.FirstFourDayWeek
        Me.RadScheduler1.Culture = culture

        Me.RadScheduler1.ActiveViewType = Telerik.WinControls.UI.SchedulerViewType.Timeline
        Dim timelineView As SchedulerTimelineView = Me.RadScheduler1.GetTimelineView()
        Dim scale As Timescales = Timescales.Weeks
        timelineView.ShowTimescale(scale) 

    End Sub
 

    Private Sub RadForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim baseDate As DateTime = DateTime.Today
        Dim start As DateTime() = New DateTime() {baseDate.AddHours(14.0), baseDate.AddDays(1.0).AddHours(9.0), baseDate.AddDays(2.0).AddHours(13.0)}
        Dim [end] As DateTime() = New DateTime() {baseDate.AddHours(16.0), baseDate.AddDays(1.0).AddHours(15.0), baseDate.AddDays(2.0).AddHours(17.0)}



        Dim appointment As Appointment = Nothing
        For i As Integer = 0 To 2
            appointment = New Appointment(start(i), [end](i), "A" & i, "D" & i, "L" & i) 
            Me.RadScheduler1.Appointments.Add(appointment)
        Next

        Me.RadScheduler1.ActiveView.StartDate = New DateTime(2020, 10, 11)
    End Sub