FpSpread1.AllowDragFill = True
FpSpread1.Sheets(0).Cells(0, 0).BackColor = Color.DarkOrchid
Private Sub FpSpread1_DragFillBlock(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragFillBlockEventArgs) Handles
FpSpread1.DragFillBlock
e.DataOnly = False
End Sub