Imports Infragistics.Win
Private Sub SetupActiveCellAppearanceColors()
Dim appearance As Appearance
appearance = New Infragistics.Win.Appearance()
appearance.ForeColor = Color.White
appearance.ForeColorDisabled = Color.Gray
appearance.BackColor = Color.Green
appearance.BackColor2 = Color.Blue
appearance.BackColorDisabled = Color.Red
appearance.BackColorDisabled2 = Color.Yellow
appearance.BackGradientStyle = GradientStyle.Elliptical
appearance.BackColorAlpha = Alpha.UseAlphaLevel
appearance.AlphaLevel = 125
Me.ultraGrid1.DisplayLayout.Override.CellAppearance = appearance
End Sub