Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinExplorerBar
Private Sub ultraExplorerBar1_ActiveGroupChanged(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinExplorerBar.GroupEventArgs) Handles ultraExplorerBar1.ActiveGroupChanged
Debug.WriteLine("The ActiveGroup has changed. The new ActiveGroup is: " + e.Group.Text + "'")
End Sub