Private Sub FpSpread1_RowHeightChanged(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.RowHeightChangedEventArgs) Handles
FpSpread1.RowHeightChanged
Dim i As Integer
For i = 0 To e.RowList.Count - 1
e.View.Sheets(0).Rows(i).BackColor = Color.Yellow
Next
End Sub