Imports Infragistics.Win
Imports Infragistics.Win.UltraWinProgressBar
Imports System.Diagnostics
   Private Sub ultraProgressBar1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ultraProgressBar1.MouseDown
       Dim mainElement As UIElement
       Dim element As UIElement
       ' Get the control's main element
       mainElement = Me.ultraProgressBar1.UIElement
       ' Get the element at that point
       element = mainElement.ElementFromPoint(New Point(e.X, e.Y))
       If element Is Nothing Then Return
       Debug.WriteLine("Clicked on an " + element.GetType().ToString())
       Debug.Indent()
       ' Walk up the parent element chain and write out a line 
       ' for each parent element.
       While Not element.Parent Is Nothing
           element = element.Parent
           Debug.WriteLine("is a child of an " + element.GetType().ToString())
           Debug.Indent()
       End While
       ' reset the indent level
       Debug.IndentLevel = 0
   End Sub