Private Sub FpSpread1SelectionChanging(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.SelectionChangingEventArgs)
Handles FpSpread1.SelectionChanging
e.View.Sheets(e.View.ActiveSheetIndex).SelectionStyle = FarPoint.Win.Spread.SelectionStyles.SelectionColors
e.View.Sheets(e.View.ActiveSheetIndex).SelectionBackColor = Color.Yellow
End Sub