Imports Infragistics.Win
Imports Infragistics.Win.Layout
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterColumnMoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterColumnMovedEventArgs) Handles ultraTree1.AfterColumnMoved
Debug.WriteLine("Column '" + e.Column.TextResolved + "' successfully moved")
End Sub
Private Sub ultraTree1_BeforeColumnMoved(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.BeforeColumnMovedEventArgs) Handles ultraTree1.BeforeColumnMoved
' Disallow moving the leftmost column
If e.Column.LayoutInfo.OriginX = 0 Then
e.Cancel = True
End If
End Sub