Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterPaste(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.AfterPasteEventArgs) Handles ultraTree1.AfterPaste
Dim sb As New System.Text.StringBuilder()
Dim node As UltraTreeNode
sb.Append("The following nodes have been pasted from the clipboard: ")
If e.Nodes.Count > 0 Then
' Expand the parent node
If Not e.Nodes(0).Parent Is Nothing Then
e.Nodes(0).Parent.Expanded = True
End If
' Setting SelectPastedNodes to true will cause the pasted nodes
' to be selected when the event returns
e.SelectPastedNodes = True
' Loop over the nodes
For Each node In e.Nodes
sb.Append(node.Text)
sb.Append(", ")
Next
End If
Debug.WriteLine(sb.ToString())
End Sub