Private Sub ultraTree1_AfterExpand(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.NodeEventArgs) Handles ultraTree1.AfterExpand
Dim sb As New System.Text.StringBuilder()
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" has been expanded.")
Debug.WriteLine(sb.ToString())
' includeChildNodes パラメーターのために True を渡して
' BringIntoView を呼び出すと、ノードおよびその子ノード
' を表示します
e.TreeNode.BringIntoView(True)
End Sub