or
private void ReservationRadScheduler_AppointmentDeleting(object sender, SchedulerAppointmentCancelEventArgs e) { e.Cancel = true; } private void ReservationRadScheduler_AppointmentDropping(object sender, AppointmentMovingEventArgs e) { e.Cancel = true; } private void ReservationRadScheduler_AppointmentEditDialogShowing(object sender, AppointmentEditDialogShowingEventArgs e) { e.Cancel = true; }Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load rcvSchedule.ShowPanZoom = True LoadChart() End Sub Private Sub LoadChart() rcvSchedule.Series.Clear() rcvSchedule.Axes.Purge() rcvSchedule.Area.View.Palette = KnownPalette.Metro Dim horizontalAxis As New CategoricalAxis horizontalAxis.LabelFitMode = Telerik.Charting.AxisLabelFitMode.Rotate Dim bar1DataSource As New List(Of CustomObject)() bar1DataSource.Add(New CustomObject() With {.Value1 = 250, .Category = "19.09.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 200, .Category = "30.09.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 25, .Category = "06.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "17.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "18.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "19.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "20.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "21.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "22.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "23.10.2013"}) bar1DataSource.Add(New CustomObject() With {.Value1 = 300, .Category = "24.10.2013"}) Dim bar1 As New BarSeries() bar1.ValueMember = "Value1" bar1.CategoryMember = "Category" bar1.LegendTitle = "Tot." bar1.DataSource = bar1DataSource bar1.HorizontalAxis = horizontalAxis rcvSchedule.Series.Add(bar1) End Sub Private Sub RadButton1_Click(sender As System.Object, e As System.EventArgs) Handles RadButton1.Click LoadChart() End Subvar scrollBar = gvBrand.Controls.OfType<VScrollBar>().First();

