Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolBars
private sub SetRibbonGroupProperties()
	' Add a RibbonTab
	Dim ribbonTab As RibbonTab = Me.UltraToolbarsManager1.Ribbon.Tabs.Add("Ribbon Tab Key")
	ribbonTab.Caption = "Ribbon Group Caption"
	' Add some groups
	Dim ribbonGroupClipboard As RibbonGroup = ribbonTab.Groups.Add("Clipboard")
	ribbonGroupClipboard.Caption = "Clipboard"
	' Create tools
	Me.UltraToolbarsManager1.Tools.Add(New PopupMenuTool("Paste"))
	Me.UltraToolbarsManager1.Tools.Add(New ButtonTool("Cut"))
	Me.UltraToolbarsManager1.Tools.Add(New ButtonTool("Copy"))
	Me.UltraToolbarsManager1.Tools.Add(New ButtonTool("Format Painter"))
	Me.UltraToolbarsManager1.Tools.Add(New ButtonTool("ClipboardDialogBoxLauncher"))
	' Create some dummy images which will be used for every tool for the purposes of this
	' sample code
	Dim toolImageSmall As Bitmap = Me.CreateDummyToolBitmap(16, 16, Color.Blue)
	Dim toolImageLarge As Bitmap = Me.CreateDummyToolBitmap(32, 32, Color.Green)
	' Add the tools into the appropriate groups and arrange them.
	' Paste Tool
	Dim toolPaste As PopupMenuTool = DirectCast(ribbonGroupClipboard.Tools.AddTool("Paste"), PopupMenuTool)
	toolPaste.SharedProps.Caption = toolPaste.Key
	toolPaste.InstanceProps.PreferredSizeOnRibbon = RibbonToolSize.Large
	toolPaste.SharedProps.AppearancesLarge.Appearance.Image = toolImageLarge
	toolPaste.DropDownArrowStyle = DropDownArrowStyle.Segmented
	' Cut
	Dim toolCut As ButtonTool = DirectCast(ribbonGroupClipboard.Tools.AddTool("Cut"), ButtonTool)
	toolCut.SharedProps.Caption = toolCut.Key
	toolCut.SharedProps.AppearancesSmall.Appearance.Image = toolImageSmall
	' Copy
	Dim toolCopy As ButtonTool = DirectCast(ribbonGroupClipboard.Tools.AddTool("Copy"), ButtonTool)
	toolCopy.SharedProps.Caption = toolCopy.Key
	toolCopy.SharedProps.AppearancesSmall.Appearance.Image = toolImageSmall
	' Format Painter
	Dim toolFormatPainter As ButtonTool = DirectCast(ribbonGroupClipboard.Tools.AddTool("Format Painter"), ButtonTool)
	toolFormatPainter.SharedProps.Caption = toolFormatPainter.Key
	toolFormatPainter.SharedProps.AppearancesSmall.Appearance.Image = toolImageSmall
	' Set up DialogBoxLauncher tools for each of the groups. 
	ribbonGroupClipboard.DialogBoxLauncherKey = "ClipboardDialogBoxLauncher"
	' Set the KeyTip
	ribbonGroupClipboard.KeyTip = "C"
	' Set the LayoutAlignment
	ribbonGroupClipboard.LayoutAlignment = RibbonGroupLayoutAlignment.Center
	' Set the LayoutDirection
	ribbonGroupClipboard.LayoutDirection = RibbonGroupToolLayoutDirection.Vertical
	' Set the PreferredToolSize
	ribbonGroupClipboard.PreferredToolSize = RibbonToolSize.Normal
	' Make the group visible
	ribbonGroupClipboard.Visible = True
End Sub
Private Function CreateDummyToolBitmap(ByVal width As Integer, ByVal height As Integer, ByVal color As Color) As Bitmap
	Dim dummyToolBitmap As Bitmap = New Bitmap(Width, Height)
	Dim g As Graphics = Graphics.FromImage(dummyToolBitmap)
	g.Clear(Color)
	g.DrawRectangle(Pens.Black, 0, 0, Width - 1, Height - 1)
	g.Dispose()
	Return dummyToolBitmap
End Function