PrivateSub ultraTree1_AfterActivate(ByVal sender AsObject, ByVal e As Infragistics.Win.UltraWinTree.NodeEventArgs) Handles ultraTree1.AfterActivate
Dim sb AsNew System.Text.StringBuilder()
If e.TreeNode IsNothingThen
sb.Append("No node has been activated.")
Else
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" has been activated.")
EndIf
Debug.WriteLine(sb.ToString())
End Sub