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