Imports Infragistics.Win
Imports Infragistics.Win.UltraWinTree
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim columnSet As UltraTreeColumnSet = Me.ultraTree1.ColumnSettings.ColumnSets(0)
' Use the ActiveCellAppearance to bring attention to the cell
' with the input focus
columnSet.ActiveCellAppearance.BackColor = Color.Red
columnSet.ActiveCellAppearance.ForeColor = Color.White
' Set AllowCellEdit to 'ActivateOnly' so that clicking a cell does
' not put in into edit mode immediately
columnSet.AllowCellEdit = AllowCellEdit.ActivateOnly
' Enable tooltips for cells whose value is not fully visible
columnSet.TipStyleCell = TipStyleCell.Show
End Sub