using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Views.Base;

 private void Form3_Load1(object sender, EventArgs e) {
     CustomDrawRowPreview(gridControl1, gridView1);
 }

 public static void CustomDrawRowPreview(GridControl gridControl, GridView gridView) {
     gridView.Columns["Notes"].Visible = false;
     gridView.PreviewFieldName = "Notes";
     gridView.PreviewLineCount = 2;
     gridView.OptionsView.ShowPreview = true;

     // Handle this event to paint row previews manually
     gridView.CustomDrawRowPreview += (s, e) => {
         if (e.RowHandle == 2) {
             GridView view = s as GridView;
             int dx = 5;
             // A rectangle for displaying text.
             Rectangle r = e.Bounds;
             r.X += e.Bounds.Height + dx * 2;
             r.Width -= (e.Bounds.Height + dx * 3);
             e.Cache.FillRectangle(Color.Coral, new Rectangle(e.Bounds.X + dx, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height));
             e.Appearance.ForeColor = Color.Green;
             e.Appearance.DrawString(e.Cache, view.GetRowPreviewDisplayText(e.RowHandle), r);
             e.Handled = true;
         }
     };
 }

Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid.Views.Base

 Private Sub Form3_Load1(ByVal sender As Object, ByVal e As EventArgs)
     CustomDrawRowPreview(gridControl1, gridView1)
 End Sub

 Public Shared Sub CustomDrawRowPreview(ByVal gridControl As GridControl, ByVal gridView As GridView)
     gridView.Columns("Notes").Visible = False
     gridView.PreviewFieldName = "Notes"
     gridView.PreviewLineCount = 2
     gridView.OptionsView.ShowPreview = True

     ' Handle this event to paint row previews manually
     AddHandler gridView.CustomDrawRowPreview, Sub(s, e)
         If e.RowHandle = 2 Then
             Dim view As GridView = TryCast(s, GridView)
             Dim dx As Integer = 5
             ' A rectangle for displaying text.
             Dim r As Rectangle = e.Bounds
             r.X += e.Bounds.Height + dx * 2
             r.Width -= (e.Bounds.Height + dx * 3)
             e.Cache.FillRectangle(Color.Coral, New Rectangle(e.Bounds.X + dx, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height))
             e.Appearance.ForeColor = Color.Green
             e.Appearance.DrawString(e.Cache, view.GetRowPreviewDisplayText(e.RowHandle), r)
             e.Handled = True
         End If
     End Sub
 End Sub