Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button3.Click
' Turn on Group animation and set the animation speed to fast. This will animate the
' opening, closing and selection of Groups.
Me.ultraExplorerBar1.AnimationEnabled = True
Me.ultraExplorerBar1.AnimationSpeed = AnimationSpeed.Fast
' If BorderStyle is set to 'Default' and the resolved border style is not raised,
' set it to raised now.
If (Me.ultraExplorerBar1.BorderStyle = UIElementBorderStyle.Default AndAlso Me.ultraExplorerBar1.BorderStyleResolved <> UIElementBorderStyle.Raised) Then
Me.ultraExplorerBar1.BorderStyle = UIElementBorderStyle.Raised
End If
' If the control style is Listbar or Toolbox, show the built-in context menus.
If (Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Listbar Or _
Me.ultraExplorerBar1.Style = UltraExplorerBarStyle.Toolbox) Then
Me.ultraExplorerBar1.ShowDefaultContextMenu = True
End If
End Sub