Imports System.Diagnostics
Imports System.Collections
Imports Infragistics.Win
Imports System.Windows.Forms
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
	' グリッドで配列データを生成します
      Dim list As New ArrayList()
      list.AddRange(New Object() {"One", "Two"})
      Me.UltraGrid1.DataSource = list
  End Sub
  Private Sub UltraGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles UltraGrid1.MouseDown
      PrintAdjustableElementFromPt(New Point(e.X, e.Y))
  End Sub
  Private Sub PrintAdjustableElementFromPt(ByVal pt As Point)
	'渡されたポイントの下に AdjustableElement があるかどうかを確認します
      Dim element As UIElement = Me.UltraGrid1.DisplayLayout.UIElement.AdjustableElementFromPoint(pt)
      If Not element Is Nothing Then
          Debug.WriteLine(element.GetType().ToString())
		  'AdjustableElement がある場合、その関連付けられたカーソルを取得します
          Dim cursor As Cursor = element.GetAdjustableCursor(pt)
          If (Not cursor Is Nothing) Then
              Debug.WriteLine("Cursor is adjustable")
          End If
          Debug.WriteLine("Not Adjustable")
      End If
  End Sub