Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolBars
' Show the Ribbon
Me.UltraToolbarsManager1.Ribbon.Visible = True
' Set the ribbon caption
Me.UltraToolbarsManager1.Ribbon.Caption = "This is the ribbon caption when the form is active"
Me.UltraToolbarsManager1.Ribbon.CaptionInactive = "This is the ribbon caption when the form is inactive"
' Set the Ribbon IsMinimized to false
Me.UltraToolbarsManager1.Ribbon.IsMinimized = False
' Add some tabs
Me.UltraToolbarsManager1.Ribbon.Tabs.Clear()
Dim ribbonTab1 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon1")
Dim ribbonTab2 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon2")
Dim ribbonTab3 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon3")
Dim ribbonTab4 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon4")
Dim ribbonTab5 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon5")
Dim ribbonTab6 As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("ribbon6")
' Add some groups
Dim ribbonGroupClipboard As RibbonGroup = ribbonTab1.Groups.Add("Clipboard")
Dim ribbonGroupFont As RibbonGroup = ribbonTab1.Groups.Add("Font")
Dim ribbonGroupStyles As RibbonGroup = ribbonTab1.Groups.Add("Styles")
' Create some Contextual Tab Groups and put some tabs into groups.
Me.UltraToolbarsManager1.Ribbon.ContextualTabGroups.Clear()
Me.UltraToolbarsManager1.Ribbon.ContextualTabGroups.Add("contextualTabGroup1")
ribbonTab3.ContextualTabGroupKey = "contextualTabGroup1"
ribbonTab4.ContextualTabGroupKey = "contextualTabGroup1"
Me.UltraToolbarsManager1.Ribbon.ContextualTabGroups.Add("contextualTabGroup2")
ribbonTab5.ContextualTabGroupKey = "contextualTabGroup2"
ribbonTab6.ContextualTabGroupKey = "contextualTabGroup2"
Me.UltraToolbarsManager1.Ribbon.ContextualTabGroups("contextualTabGroup2").Visible = False
' Set the selected ribbon tab
Me.UltraToolbarsManager1.Ribbon.SelectedTab = ribbonTab1
' Set the border style for the Ribbon Groups
Me.UltraToolbarsManager1.Ribbon.GroupBorderStyle = UIElementBorderStyle.Dotted