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