private void cardView1_CustomDrawCardFieldCaption(object sender, Views.Base.RowCellCustomDrawEventArgs e) {
    CardView cv = sender as CardView;
    bool isFocusedFieldAndCard = false;
    if (cv.FocusedColumn != null)
        isFocusedFieldAndCard = e.Column.AbsoluteIndex == cv.FocusedColumn.AbsoluteIndex &&
          e.RowHandle == cv.FocusedRowHandle;
    //The brush to draw the background of card field captions
    Brush backBrush;
    Color color1 = Color.FromArgb(240, 240, 240);
    Color color2 = Color.FromArgb(166, 166, 166);
    if (isFocusedFieldAndCard)
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color1, color2, LinearGradientMode.Horizontal); 
    else
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color2, color1, LinearGradientMode.Horizontal);
    e.Cache.FillRectangle(backBrush, e.Bounds);
    e.Appearance.DrawString(e.Cache, e.DisplayText, e.Bounds);
    //Prevent default painting
    e.Handled = true;
}

Private Sub CardView1_CustomDrawCardFieldCaption(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowCellCustomDrawEventArgs) Handles CardView1.CustomDrawCardFieldCaption
    Dim cv As CardView = TryCast(sender, CardView)
    Dim isFocusedFieldAndCard As Boolean = False
    If cv.FocusedColumn IsNot Nothing Then
        isFocusedFieldAndCard = e.Column.AbsoluteIndex = cv.FocusedColumn.AbsoluteIndex AndAlso e.RowHandle = cv.FocusedRowHandle
    End If
    Dim backBrush As Brush
    Dim color1 As Color = Color.FromArgb(240, 240, 240)
    Dim color2 As Color = Color.FromArgb(166, 166, 166)
    If isFocusedFieldAndCard Then backBrush = e.Cache.GetGradientBrush(e.Bounds, color1, color2, LinearGradientMode.Horizontal) Else backBrush = e.Cache.GetGradientBrush(e.Bounds, color2, color1, LinearGradientMode.Horizontal)
    e.Cache.FillRectangle(backBrush, e.Bounds)
    e.Appearance.DrawString(e.Cache, e.DisplayText, e.Bounds)
    e.Handled = True
End Sub