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