ノードの Selected 状態は SelectedNodes コレクションを自動的に更新します。
Imports Infragistics.Win.UltraWinTree Private Sub button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button13.Click Dim node As UltraTreeNode node = Me.ultraTree1.ActiveNode If node Is Nothing Then Return ' アクティブなノードの選択状態を切り替えます node.Selected = Not node.Selected End Sub
'宣言 Public Overridable Property Selected As Boolean