Private Sub FpSpread1_Expand(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ExpandEventArgs) Handles FpSpread1.Expand
If e.Expand = True Then
e.View.Sheets(0).Cells(e.Row, 0, e.Row, FpSpread1.ActiveSheet.ColumnCount - 1).BackColor = Color.Yellow
End If
End Sub