Public Delegate Sub DragMoveCompletedEventHandler( _
   ByVal sender As Object, _
   ByVal e As DragMoveCompletedEventArgs _
) 

Dim instance As New DragMoveCompletedEventHandler(AddressOf HandlerMethod)

public delegate void DragMoveCompletedEventHandler( 
   object sender,
   DragMoveCompletedEventArgs e
)

fpSpread1.AllowColumnMove = true;

fpSpread1.ColumnDragMoveCompleted += new FarPoint.Win.Spread.DragMoveCompletedEventHandler(fpSpread1ColumnDragMoveCompleted);

private void fpSpread1ColumnDragMoveCompleted(object sender, FarPoint.Win.Spread.DragMoveCompletedEventArgs e)
{
      e.View.Sheets[e.View.ActiveSheetIndex].Columns[e.FromIndex].BackColor = Color.Yellow;
      e.View.Sheets[e.View.ActiveSheetIndex].Columns[e.ToIndex].BackColor = Color.Yellow;
}

FpSpread1.AllowColumnMove = True

Dim eh As FarPoint.Win.Spread.DragMoveCompletedEventHandler = AddressOf Fpspread1ColumnDragMoveCompleted
AddHandler FpSpread1.ColumnDragMoveCompleted, eh

Private Sub Fpspread1ColumnDragMoveCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragMoveCompletedEventArgs)
Handles FpSpread1.ColumnDragMoveCompleted
      e.View.Sheets(e.View.ActiveSheetIndex).Columns(e.FromIndex).BackColor = Color.Yellow
      e.View.Sheets(e.View.ActiveSheetIndex).Columns(e.ToIndex).BackColor = Color.Yellow
End Sub