Imports Infragistics.Win Imports Infragistics.Win.UltraWinToolbars ... Private Sub UltraToolbarsManager1_ToolbarModified(ByVal sender As Object, _ ByVal e As Infragistics.Win.UltraWinToolbars.ToolbarModifiedEventArgs) _ Handles UltraToolbarsManager1.ToolbarModified Select Case e.ToolbarChangeType Case ToolbarChangeType.Docked If e.Toolbar.Key = "Editors" Then If e.Toolbar.DockedPosition = DockedPosition.Left Or _ e.Toolbar.DockedPosition = DockedPosition.Right Then e.Toolbar.Settings.Appearance.BackGradientStyle = GradientStyle.Horizontal Else e.Toolbar.Settings.Appearance.BackGradientStyle = GradientStyle.Vertical End If End If Case ToolbarChangeType.Undocked e.Toolbar.Settings.Appearance.BackGradientStyle = GradientStyle.Vertical End Select End Sub