[DXCategory("CustomDraw")]
public event CardCaptionCustomDrawEventHandler CustomDrawCardCaption

<DXCategory("CustomDraw")>
Public Event CustomDrawCardCaption As CardCaptionCustomDrawEventHandler

private void cardView1_CustomDrawCardCaption(object sender, CardCaptionCustomDrawEventArgs e) {
    CardView view = sender as CardView;
    bool isFocusedCard = e.RowHandle == view.FocusedRowHandle;
    //The brush to draw the background of card captions.
    Brush backBrush, foreBrush;
    Color color1 = Color.FromArgb(142, 57, 80);
    Color color2 = Color.FromArgb(240, 140, 40);
    Color color3 = Color.FromArgb(70, 55, 94);
    Color color4 = Color.FromArgb(144, 84, 84);
    if (isFocusedCard) {
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color1, color2, LinearGradientMode.ForwardDiagonal);
        foreBrush = Brushes.White;
    }
    else {
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color3, color4, LinearGradientMode.ForwardDiagonal);
        foreBrush = Brushes.Coral;
    }
    Rectangle r = e.Bounds;
    r.Inflate(1, 0);
    e.Cache.FillRectangle(backBrush, r);
    // Draw the text.
    e.Appearance.DrawString(e.Cache, view.GetCardCaption(e.RowHandle),r, foreBrush);
    // Disable default painting.
    e.Handled = true;
}

Private Sub CardView1_CustomDrawCardCaption(sender As Object, e As CardCaptionCustomDrawEventArgs) Handles CardView1.CustomDrawCardCaption
    Dim view As CardView = TryCast(sender, CardView)
    Dim isFocusedCard As Boolean = e.RowHandle = view.FocusedRowHandle
    Dim backBrush, foreBrush As Brush
    Dim color1 As Color = Color.FromArgb(142, 57, 80)
    Dim color2 As Color = Color.FromArgb(240, 140, 40)
    Dim color3 As Color = Color.FromArgb(70, 55, 94)
    Dim color4 As Color = Color.FromArgb(144, 84, 84)
    If isFocusedCard Then
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color1, color2, LinearGradientMode.ForwardDiagonal)
        foreBrush = Brushes.White
    Else
        backBrush = e.Cache.GetGradientBrush(e.Bounds, color3, color4, LinearGradientMode.ForwardDiagonal)
        foreBrush = Brushes.Coral
    End If

    Dim r As Rectangle = e.Bounds
    r.Inflate(1, 0)
    e.Cache.FillRectangle(backBrush, r)
    e.Appearance.DrawString(e.Cache, view.GetCardCaption(e.RowHandle), r, foreBrush)
    e.Handled = True
End Sub