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 IsNothingAndAlso control.ActiveCell.IsInEditMode ThenIf e.KeyData = Keys.Return Then
control.ActiveNode.EndCellEdit(False)
EndIfEndIfEnd Sub