Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
	Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
		' Set the current control style to OutlookNavigationPane.
		Me.UltraExplorerBar1.Style = Infragistics.Win.UltraWinExplorerBar.UltraExplorerBarStyle.OutlookNavigationPane
		' Set the minimum height of the CurrentGroupArea.  This will insure that
		' the CurrentGroupArea will be at least 125 pixels high, with space taken from
		' the NavigationGroupHeaderArea if necessary.
		Me.UltraExplorerBar1.NavigationCurrentGroupAreaMinHeight = 125
		' Set the maximum number of Group Headers that we want to appear in the
		' NavigationGroupHeaderArea.  (we could set this property to -1 to automatically
		' display the largest number of GroupHeaders that will fit)
		Me.UltraExplorerBar1.MaxNavigationGroupHeaders = 5
		' Set NavigationAllowGroupReorder to false so that the user cannot reorder Groups
		' in the NavigationPaneOptions Dialog.
		Me.UltraExplorerBar1.NavigationAllowGroupReorder = False
		' The the control's GroupSettings.NavigationAllowHide property to true.  This will allow
		' the user to show and/or hide Groups in the NavigationPaneOptions Dialog and also in the
		' QuickCustomize menu.  Specifically set NavigationAllowHide to false for the second Group.
		Me.UltraExplorerBar1.GroupSettings.NavigationAllowHide = Infragistics.Win.DefaultableBoolean.True
		Me.UltraExplorerBar1.Groups(1).Settings.NavigationAllowHide = Infragistics.Win.DefaultableBoolean.False
		' Force the Group buttons in the NavigationOverflowButtonArea to display large images.  By default
		' they display small images.
		Me.UltraExplorerBar1.UseLargeNavigationOverflowButtonImages = True
	End Sub