Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub ultraDockManager1_BeforeShowFlyout(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinDock.CancelableControlPaneEventArgs) Handles ultraDockManager1.BeforeShowFlyout
' BeforeShowFlyout is fired before an unpinned control pane is
' displayed in a flyout window.
'
' Prevent flyouts docked to the top or bottom from flying out -
' get the associated DockArea and base it on its docked location
Dim location As DockedLocation = e.Pane.DockAreaPane.DockedLocation
If (location = DockedLocation.DockedBottom OrElse _
location = DockedLocation.DockedTop) Then
e.Cancel = True
End If
End Sub