PrivateSub ultraTree1_AfterCheck(ByVal sender AsObject, ByVal e As Infragistics.Win.UltraWinTree.NodeEventArgs) Handles ultraTree1.AfterCheck
Dim sb AsNew System.Text.StringBuilder()
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" check state as changed to ")
sb.Append(e.TreeNode.CheckedState)
Debug.WriteLine(sb.ToString())
End Sub