or
<telerik:RadDockPanel x:Name="LaunchScreenDockPanel" LastChildFill="True"> <telerik:RadExpander x:Name="UserInfo" ExpandDirection="Up" IsExpanded="True"></telerik:RadExpander> <WindowsFormsHost HorizontalAlignment="Stretch" Name="windowsFormsHost1" VerticalAlignment="Stretch" > <wincontrols:RadPanorama x:Name="LaunchPadPanorama" Size="200,400" RowsCount="2" MinimumColumns="2" ShowGroups="True" Dock="Fill">Private Sub adjustGroupHeader() If RadScheduler1.GroupType = GroupType.Resource And RadScheduler1.ActiveViewType = SchedulerViewType.Timeline Then Dim element As TimelineGroupingByResourcesElement = TryCast(Me.RadScheduler1.SchedulerElement.ViewElement, TimelineGroupingByResourcesElement) element.Font = New Font("Arial", 22) element.ForeColor = Color.Yellow End If If RadScheduler1.GroupType = GroupType.Resource And RadScheduler1.ActiveViewType = SchedulerViewType.Day Then Dim element As SchedulerDayViewGroupedByResourceElement = TryCast(Me.RadScheduler1.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement) element.Font = New Font("Arial", 16) element.ForeColor = Color.Yellow End If If RadScheduler1.GroupType = GroupType.Resource And RadScheduler1.ActiveViewType = SchedulerViewType.Week Then Dim element As SchedulerDayViewGroupedByResourceElement = TryCast(Me.RadScheduler1.SchedulerElement.ViewElement, SchedulerDayViewGroupedByResourceElement) element.Font = New Font("Arial", 16) element.ForeColor = Color.Yellow End If If RadScheduler1.GroupType = GroupType.Resource And RadScheduler1.ActiveViewType = SchedulerViewType.Month Then Dim element As SchedulerMonthViewGroupedByResourceElement = TryCast(Me.RadScheduler1.SchedulerElement.ViewElement, SchedulerMonthViewGroupedByResourceElement) element.Font = New Font("Arial", 16) element.ForeColor = Color.Yellow 'code needed to change forecolor/backcolor of weekday names End IfEnd Sub