Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterCut(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterCutEventArgs) Handles ultraTree1.AfterCut
Dim sb As New System.Text.StringBuilder()
Dim node As UltraTreeNode
sb.Append("The following nodes have been cut to the clipboard: ")
' Loop over the nodes
For Each node In e.Nodes
sb.Append(node.Text)
sb.Append(", ")
Next
Debug.WriteLine(sb.ToString())
End Sub