Private Sub FpSpread1CellClick(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.CellClickEventArgs) Handles FpSpread1.CellClick
Dim ar As FarPoint.Win.Spread.AlternatingRow
For Each ar In FpSpread1.ActiveSheet.AlternatingRows
ar.CanFocus = False
Next
End Sub