or


Private Sub radScheduler1_AppointmentEditDialogShowing (sender As Object, e As AppointmentEditDialogShowingEventArgs)
e.AppointmentEditDialog = New CustomForm()
End Sub Private Sub radScheduler1_AppointmentEditDialogShowing (sender As Object, e As AppointmentEditDialogShowingEventArgs) CustomForm.showEnd Sub
this.radGridView3.Groups[0].Collapse();
this.radGridView3.Groups[1].Collapse();
this.radGridView3.Groups[2].Collapse();
this.radGridView3.Groups[3].Collapse();
this.radGridView3.Groups[4].Collapse();

Me.RadScheduler1.Statuses.Add(New AppointmentStatusInfo(6, "Guests", Color.Transparent, Color.Transparent, AppointmentStatusFillType.Solid))Me.RadScheduler1.Statuses.Add(New AppointmentStatusInfo(7, "NoGuests", Color.White, Color.White, AppointmentStatusFillType.Solid))