using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid.Views.Grid.ViewInfo;
using DevExpress.XtraGrid.Views.Base;
using DevExpress.XtraGrid.Menu;
using DevExpress.Utils.Menu;

private void gridView1_MouseDown(object sender, MouseEventArgs e) {
    GridView view = sender as GridView;
    if(view == null) return;
    // obtaining hit info
    GridHitInfo hitInfo = view.CalcHitInfo(new Point(e.X, e.Y));
    if (((e.Button & MouseButtons.Right) != 0) && (hitInfo.InRow)  && 
        (!view.IsGroupRow(hitInfo.RowHandle))) {
        // switching focus
        view.FocusedRowHandle = hitInfo.RowHandle;
        // showing the custom context menu

        ViewMenu menu = new ViewMenu(view);
        DXMenuItem menuItem = new DXMenuItem("DeleteRow", 
          new EventHandler(DeleteFocusedRow));
        menuItem.Tag = view;
        menu.Items.Add(menuItem);
        menu.Show(hitInfo.HitPoint);
    }        
}

void DeleteFocusedRow(object sender, EventArgs e) {
    DXMenuItem menuItem = sender as DXMenuItem;
    if(menuItem == null) return;
    ColumnView View = menuItem.Tag as ColumnView;
    View.DeleteRow(view.FocusedRowHandle);
}

Imports DevExpress.XtraGrid.Views.Grid;
Imports DevExpress.XtraGrid.Views.Grid.ViewInfo;
Imports DevExpress.XtraGrid.Views.Base;
Imports DevExpress.XtraGrid.Menu;
Imports DevExpress.Utils.Menu;

Private Sub gridView1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
Handles gridView1.MouseDown
    Dim View As GridView = CType(sender, GridView)
    If View Is Nothing Then Return
    ' obtaining hit info
    Dim hitInfo As GridHitInfo = View.CalcHitInfo(New Point(e.X, e.Y))
    If ((e.Button & MouseButtons.Right) <> 0) And (hitInfo.InRow) And _
      (Not View.IsGroupRow(hitInfo.RowHandle)) Then
        ' switching focus
        View.FocusedRowHandle = hitInfo.RowHandle
        ' showing the custom context menu

        Dim menu As ViewMenu = New ViewMenu(view)
        Dim menuItem As DXMenuItem = New DXMenuItem("DeleteRow", _
          New EventHandler(AddressOf DeleteFocusedRow))
        menuItem.Tag = view
        menu.Items.Add(menuItem)
        menu.Show(hitInfo.HitPoint)
    End If
End Sub

Private Sub DeleteFocusedRow(ByVal sender As Object, ByVal e As EventArgs)
    Dim menuItem As DXMenuItem = CType(sender, DXMenuItem)
    If menuItem Is Nothing Then Return
    Dim View As ColumnView = CType(menuItem.Tag, ColumnView)
    View.DeleteRow(view.FocusedRowHandle)
End Sub

using DevExpress.XtraGrid.Views.Base;
using DevExpress.XtraGrid.Views.Card;
using DevExpress.XtraGrid.Views.Grid;
using DevExpress.XtraGrid;
using DevExpress.XtraGrid.Views.Card.ViewInfo;
// ...
   private void cvProducts_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e) {
      CardView View = sender as CardView;
      GridView parentView = View.ParentView as GridView;
      // obtaining the clicked point
      CardHitInfo hi = View.CalcHitInfo(new Point(e.X, e.Y));
      // determining if the clicked point belongs to a card caption
      if (hi.HitTest == CardHitTest.CardCaption) {
         // obtaining the clicked card
         string rowID = View.GetRowCellValue(hi.RowHandle, View.Columns["ProductID"]).ToString();
         gridControl1.DoDragDrop(rowID, DragDropEffects.Move);
      }
   }
// ...
private void gridControl1_DragOver(object sender, DragEventArgs e) {
   GridControl grid = sender as GridControl;
   // obtaining the View over which the card is being dragged
   BaseView View = grid.GetViewAt(new Point(e.X, e.Y));
   if (view is CardView)
      e.Effect = DragDropEffects.Move;
   else
      e.Effect = DragDropEffects.None;
   }
// ...
private void gridControl1_DragDrop(object sender, DragEventArgs e) {
   GridControl grid = sender as GridControl;
   // obtaining the View on which the card has been dropped
   Point pt = gridControl1.PointToClient(new Point(e.X, e.Y));
   CardView View = grid.GetViewAt(pt) as CardView;
   string dragData = e.Data.GetData(DataFormats.Text).ToString();
   int rowID = Convert.ToInt32(dragData);
   // obtaining the row which owns the detail clone that the card has been dropped on
   GridView parentView = View.ParentView as GridView;
   object cellValue = parentView.GetRowCellValue(view.SourceRowHandle, 
     parentView.Columns["CategoryID"]);
   int currentParentID = Convert.ToInt32(cellValue);
   // changing the parent row of the card results in moving this card to the specified parent row:
   dataSet11.Products.Rows.Find(rowID)[dataSet11.Products.Columns["CategoryID"]] = 
     currentParentID;       
}

Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Views.Card
Imports DevExpress.XtraGrid.Views.Grid
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Card.ViewInfo
// ...
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) _
sHandles MyBase.MouseDown
   Dim View As CardView = sender
   Dim ParentView As GridView = View.ParentView
   ' obtaining the clicked point
   Dim Hi As CardHitInfo = View.CalcHitInfo(New Point(e.X, e.Y))
   ' determining if the clicked point belongs to a card caption
   If Hi.HitTest = CardHitTest.CardCaption Then
      ' obtaining the clicked card
      Dim RowID As String = View.GetRowCellValue(Hi.RowHandle, _
        View.Columns("ProductID")).ToString()
      GridControl1.DoDragDrop(RowID, DragDropEffects.Move)
   End If

End Sub
// ...
Private Sub Form1_DragOver(ByVal sender As Object, ByVal e As DragEventArgs) _
Handles MyBase.DragOver
   Dim Grid As GridControl = sender
   ' obtaining the View over which the card is being dragged
   Dim View As BaseView = Grid.GetViewAt(New Point(e.X, e.Y))
   If TypeOf View Is CardView Then
      e.Effect = DragDropEffects.Move
   Else
      e.Effect = DragDropEffects.None
   End If
End Sub
// ...
Private Sub Form1_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) _
Handles MyBase.DragDrop
   Dim Grid As GridControl = sender
   ' obtaining the View to which the card has been dropped
   Dim pt As Point = GridControl1.PointToClient(New Point(e.X, e.Y));
   Dim View As CardView = Grid.GetViewAt(pt)
   Dim dragData As String = e.Data.GetData(DataFormats.Text).ToString()
   Dim RowID As Integer = Convert.ToInt32(dragData)
   ' obtaining the row which owns the detail clone that the card has been dropped on
   Dim parentView As GridView = View.ParentView
   Dim cellValue As Object = parentView.GetRowCellValue(view.SourceRowHandle, _
     parentView.Columns("CategoryID"))
   Dim currentParentID As Integer = Convert.ToInt32(cellValue)
   ' changing the parent row of the card results in moving this card to specified parent row:
   DataSet11.Products.Rows.Find( _
     RowID)(DataSet11.Products.Columns("CategoryID")) = currentParentID
End Sub