Imports System.Collections.Generic
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinSchedule
Imports System.Diagnostics
Public Sub InitAppearances(ByVal control As UltraTimelineView)
' Use a navy blue foreground color for all elements
control.Appearance.ForeColor = Color.Navy
' Set the working hour, non-working hour, and selected range
' appearances to customized colors
control.WorkingHourAppearance.BackColor = Color.White
control.WorkingHourAppearance.BorderColor = Color.DarkGray
control.NonWorkingHourAppearance.BackColor = Color.LightGray
control.NonWorkingHourAppearance.BorderColor = Color.Gray
control.SelectedDateTimeRangeAppearance.BackColor = Color.GhostWhite
control.SelectedDateTimeRangeAppearance.BackColor2 = Color.LightBlue
control.SelectedDateTimeRangeAppearance.BackGradientStyle = GradientStyle.Vertical
control.SelectedDateTimeRangeAppearance.BorderColor = Color.Navy
End Sub