Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_AfterCellEnterEditMode(ByVal sender As Object, ByVal e As AfterCellEnterEditModeEventArgs) Handles ultraTree1.AfterCellEnterEditMode
If e.Cell.EditorResolved.SupportsSelectableText Then
Dim currentText As String = e.Cell.EditorResolved.CurrentEditText
e.Cell.EditorResolved.SelectionStart = 0
e.Cell.EditorResolved.SelectionLength = currentText.Length
End If
End Sub