PrivateSub ultraTree1_AfterCollapse(ByVal sender AsObject, ByVal e As Infragistics.Win.UltraWinTree.NodeEventArgs) Handles ultraTree1.AfterCollapse
Dim sb AsNew System.Text.StringBuilder()
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" has been collapsed.")
Debug.WriteLine(sb.ToString())
End Sub