Nos equivocamos esto es lo que necesitas:
Código:
Grilla.FillStyle = flexFillRepeat
Grilla.Redraw = False
For I = 1 To Grilla.Rows - 1
Grilla.Row = I
Grilla.RowSel = I
Grilla.Col = 0
Grilla.ColSel = Grilla.Cols - 1
Grilla.CellBackColor = IIf(I Mod 2 = 0, RGB(255, 255, 255), RGB(192, 192, 192))
Next
Grilla.Redraw = True
Espero que esto si te funcione: