using DevExpress.XtraBars.Ribbon.ViewInfo;

private void gddFont_Gallery_CustomDrawItemText(object sender, 
  GalleryItemCustomDrawEventArgs e) {
    GalleryItemViewInfo itemInfo = e.ItemInfo as GalleryItemViewInfo;
    itemInfo.PaintAppearance.ItemDescription.DrawString(e.Cache, 
      e.Item.Description, itemInfo.DescriptionBounds);
    AppearanceObject app = itemInfo.PaintAppearance.ItemCaption.Clone() 
      as AppearanceObject;
    app.Font = (Font)e.Item.Tag;
    app.DrawString(e.Cache, e.Item.Caption, itemInfo.CaptionBounds);
    e.Handled = true;
}

Imports DevExpress.XtraBars.Ribbon.ViewInfo

Private Sub gddFont_Gallery_CustomDrawItemText(ByVal sender As Object, _
  ByVal e As GalleryItemCustomDrawEventArgs) Handles gddFont.GalleryCustomDrawItemText
    Dim itemInfo As GalleryItemViewInfo = CType( _
      IIf(TypeOf e.ItemInfo Is GalleryItemViewInfo, e.ItemInfo, Nothing), GalleryItemViewInfo)
    itemInfo.PaintAppearance.ItemDescription.DrawString(e.Cache, e.Item.Description, _
      itemInfo.DescriptionBounds)
    Dim app As AppearanceObject = _
      CType(itemInfo.PaintAppearance.ItemCaption.Clone(), AppearanceObject)
    app.Font = CType(e.Item.Tag, Font)
    app.DrawString(e.Cache, e.Item.Caption, itemInfo.CaptionBounds)
    e.Handled = True
End Sub

private void gddFontColor_Gallery_CustomDrawItemImage(object sender, 
  GalleryItemCustomDrawEventArgs e) {
    Color clr = (Color)e.Item.Tag;
    using(Brush brush = new SolidBrush(clr)) {
        e.Cache.FillRectangle(brush, e.Bounds);
        e.Handled = true;
    }
}

Private Sub gddFontColor_Gallery_CustomDrawItemImage(ByVal sender As Object, _
  ByVal e As GalleryItemCustomDrawEventArgs) _
  Handles gddFontColor.GalleryCustomDrawItemImage, _
  rgbiFontColor.GalleryCustomDrawItemImage
    Dim clr As Color = CType(e.Item.Tag, Color)
    Dim brush As brush = New SolidBrush(clr)
    Try
        e.Cache.FillRectangle(brush, e.Bounds)
        e.Handled = True
    Finally
        CType(brush, IDisposable).Dispose()
    End Try
End Sub