Private Sub FpSpread1_DragDropBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragDropBlockEventArgs) Handles
FpSpread1.DragDropBlock
TextBox1.Text = "The beginning column is " & e.ColumnBegin & " and the ending column is " & e.ColumnEnd
End Sub