Private Sub ultraTree1_AfterActivate(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinTree.NodeEventArgs) Handles ultraTree1.AfterActivate
Dim sb As New System.Text.StringBuilder()
If e.TreeNode Is Nothing Then
sb.Append("No node has been activated.")
Else
sb.Append("Node: ")
sb.Append(e.TreeNode.Key)
sb.Append(" has been activated.")
End If
Debug.WriteLine(sb.ToString())
End Sub