Dim eh As FarPoint.Win.Spread.DragDropBlockCompletedEventHandler = AddressOf FpSpread1DragDropBlockCompleted
AddHandler FpSpread1.DragDropBlockCompleted, eh
Private Sub FpSpread1DragDropBlockCompleted(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.DragDropBlockCompletedEventArgs)
Handles FpSpread1.DragDropBlockCompleted
FpSpread1.ActiveSheet.Columns(e.ColumnEnd).BackColor = Color.Yellow
End Sub