Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
PrivateSub ultraTree1_KeyDown(ByVal sender AsObject, ByVal e As System.Windows.Forms.KeyEventArgs)
Dim control As UltraTree = sender
IfNot control.ActiveCell IsNothingAndAlsoNot control.ActiveCell.IsInEditMode ThenIf (e.KeyData = Keys.F5) Then
control.ActiveNode.Update()
ElseIf (e.KeyData = Keys.F6) Then
control.ActiveNode.CancelUpdate()
EndIfEndIfEnd Sub