Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_ActiveItemChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.ItemEventArgs) Handles ultraExplorerBar1.ActiveItemChanged
Debug.WriteLine("The new active group is: " + e.Item.Text + "'")
End Sub