Цветные сроки в MSHFlexGrid - VB

Формулировка задачи:

Казалось бы простая операция, но... Необходимо раскапсить строки в гриде в разный цвет. Решение которое я использую это цикл в нутри цикла, т.е. во внешнем цикле двигаюсь по строкам, а во внутреннем по колонкам и меняю CellBackColor для каждой отдельно взятой клетки. Способ некрасивый и долгий (требует много времени). Ворос нет ли другого способа раскраски? Четные в один цвет нечетные в другой, или каждую третью в один цвет остальные в другой ?

Решение задачи: «Цветные сроки в MSHFlexGrid»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    
    Dim iRow As Integer
    Dim blnPaintRed As Boolean
    
    With MSHFlexGrid1
        For iRow = 1 To .Rows - 1
            .Row = iRow
            .Col = 0
            .RowSel = iRow
            .ColSel = .Cols - 1
            .FillStyle = flexFillRepeat
            .CellForeColor = IIf(blnPaintRed, vbYellow, vbRed)
            .CellBackColor = IIf(blnPaintRed, vbRed, vbYellow)
            blnPaintRed = Not blnPaintRed
        Next iRow
    End With
        
End Sub