Public ReadOnly Property Index As Integer

Dim instance As DragMoveEventArgs
Dim value As Integer
 
value = instance.Index

public int Index {get;}

fpSpread1.AllowColumnMove = true;

fpSpread1.ColumnDragMove +=new FarPoint.Win.Spread.DragMoveEventHandler(fpSpread1ColumnDragMove);

private void fpSpread1ColumnDragMove(object sender, FarPoint.Win.Spread.DragMoveEventArgs e)
{
      e.View.Sheets(e.View.ActiveSheetIndex).Columns(e.Index).BackColor = Color.Yellow
}

FpSpread1.AllowColumnMove = True

Dim eh As FarPoint.Win.Spread.DragMoveEventHandler = AddressOf Fpspread1ColumnDragMove
AddHandler FpSpread1.ColumnDragMove, eh

Private Sub Fpspread1ColumnDragMove(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragMoveEventArgs) Handles FpSpread1.ColumnDragMove
      e.View.Sheets(e.View.ActiveSheetIndex).Columns(e.Index).BackColor = Color.Yellow
End Sub