Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)
Dim control As UltraTree = sender
If Not control.ActiveCell Is Nothing AndAlso Not control.ActiveCell.IsInEditMode Then
If (e.KeyData = Keys.F5) Then
control.ActiveNode.Update()
ElseIf (e.KeyData = Keys.F6) Then
control.ActiveNode.CancelUpdate()
End If
End If
End Sub