Imports Infragistics.Win
Imports Infragistics.Win.Layout
Imports Infragistics.Win.UltraWinTree
    Private Sub ultraTree1_AfterNodeLayoutItemSpanResize(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterNodeLayoutItemSpanResizeEventArgs) Handles ultraTree1.AfterNodeLayoutItemSpanResize
        '	Output a message to the debug window describing the resize operation
        Dim message As String = String.Empty
        If (e.IsCell) Then
            Message = "Cell '" + e.Cell.Text + "' was successfully span resized."
        Else
            Message = "The header of column '" + e.Column.TextResolved + "' was successfully span resized."
        End If
        Debug.WriteLine(Message)
    End Sub
    Private Sub ultraTree1_BeforeNodeLayoutItemSpanResize(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.BeforeNodeLayoutItemSpanResizeEventArgs) Handles ultraTree1.BeforeNodeLayoutItemSpanResize
        '	Disallow cell span resizing for non-root level nodes
        If Not e.Node Is Nothing AndAlso e.Node.Level > 0 Then
            e.Cancel = True
            Return
        End If
        '	Output a message to the debug window describing the resize operation
        Dim message As String = String.Empty
        If (e.IsCell) Then
            message = "Cell '" + e.Cell.Text + "' is being resized."
        ElseIf (e.IsLabel) Then
            message = "The header of column '" + e.Column.TextResolved + "' is being resized."
        End If
        Debug.WriteLine(message)
    End Sub