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