Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
' Handles the Form's 'Load' event
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' Hook the NavigationPaneFlyoutDisplaying event
AddHandler Me.ultraExplorerBar1.NavigationPaneFlyoutDisplaying, AddressOf Me.ultraExplorerBar1_NavigationPaneFlyoutDisplaying
End Sub
' Handles the ExplorerBar's 'NavigationPaneFlyoutDisplaying' event.
Private Sub ultraExplorerBar1_NavigationPaneFlyoutDisplaying(ByVal sender As Object, ByVal e As NavigationPaneFlyoutDisplayingEventArgs)
Dim explorerBar As UltraExplorerBar = sender
' Get the width of the collapsed navigation pane
Dim collapsedWidth As Integer = explorerBar.NavigationPaneCollapsedWidth
' Define the size for the flyout
Dim flyoutSize As Size = New Size(200, 300)
' Define the location of the flyout such that it appears
' on the left side of the control rather than the right.
Dim flyoutLocation As Point = e.PreferredLocation
flyoutLocation.X -= (flyoutSize.Width + collapsedWidth)
e.PreferredSize = flyoutSize
e.PreferredLocation = flyoutLocation
End Sub