Imports System.Diagnostics
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolbars
Private Sub UltraToolbarsManager1_AfterToolActivate(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinToolbars.ToolEventArgs) Handles UltraToolbarsManager1.AfterToolActivate
Debug.WriteLine("The tool with key '" + e.Tool.Key + "' has been activated")
End Sub