olor = RGB(220, 202, 222)
      grdThis.HighlightBackColor = RGB(196, 170, 126)
      grdThis.HighlightForeColor = RGB(72, 29, 73)
      grdThis.NoFocusHighlightBackColor = RGB(135, 102, 138)
      grdThis.NoFocusHighlightForeColor = RGB(220, 202, 222)
   Else
      grdThis.AlternateRowBackColor = -1
      grdThis.BackColor = vbWindowBackground
      grdThis.GridLineColor = vbButtonFace
      grdThis.GridFillLineColor = grdThis.GridLineColor
      grdThis.ForeColor = vbWindowText
      grdThis.GroupingAreaB