Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterCopy(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterCopyEventArgs) Handles ultraTree1.AfterCopy
Dim sb As New System.Text.StringBuilder()
Dim node As UltraTreeNode
sb.Append("The following nodes have been copied 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