Imports Infragistics.Win.UltraWinTree
...
Private Sub btnSiblings_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnSiblings.Click
Dim aNode As UltraTreeNode
aNode = Me.UltraTree1.GetNodeByKey("Walkthroughs")
Dim firstNode, nextNode, previousNode, lastNode As UltraTreeNode
If (aNode.HasSibling(NodePosition.First)) Then
firstNode = aNode.GetSibling(NodePosition.First)
Me.UltraTextEditor1.Text += firstNode.Text
Me.UltraTextEditor1.Text += " "
End If
If (aNode.HasSibling(NodePosition.Last)) Then
lastNode = aNode.GetSibling(NodePosition.Last)
Me.UltraTextEditor1.Text += lastNode.Text
Me.UltraTextEditor1.Text += " "
End If
If (aNode.HasSibling(NodePosition.Next)) Then
nextNode = aNode.GetSibling(NodePosition.Next)
Me.UltraTextEditor1.Text += nextNode.Text
Me.UltraTextEditor1.Text += " "
End If
If (aNode.HasSibling(NodePosition.Previous)) Then
previousNode = aNode.GetSibling(NodePosition.Previous)
Me.UltraTextEditor1.Text += previousNode.Text
Me.UltraTextEditor1.Text += " "
End If
End Sub