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