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