Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterSelect(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinTree.SelectEventArgs) Handles ultraTree1.AfterSelect
Dim sb As New System.Text.StringBuilder()
sb.Append("The SelectedNodes collection has changed to the nodes ")
Dim node As UltraTreeNode
' 新しい SelectedNodes コレクションでノードをループします
For Each node In e.NewSelections
sb.Append(node.Key)
sb.Append(", ")
Next
Debug.WriteLine(sb.ToString())
End Sub