Imports System.Windows.Forms
Imports Infragistics.Win
Imports System.Diagnostics
Private Sub ultraProgressBar1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
' ProgressFillTextUIElement のヒット テスト
Dim fillTextUIElement As UIElement
fillTextUIElement = Me.ultraProgressBar1.UIElement.GetDescendant( _
GetType(UltraWinProgressBar.ProgressFillTextUIElement))
If Not fillTextUIElement Is Nothing Then
If fillTextUIElement.Contains(new Point(e.X,e.Y))
Debug.WriteLine("Hit ProgressFillTextUIElement")
End If
End If
End Sub