VSFlexGrid1.Row = 1
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbBlue
Next
VSFlexGrid1.Row = 2
For i = 1 To VSFlexGrid1.Cols - 1
VSFlexGrid1.Col = i
VSFlexGrid1.CellBackColor = vbRed
Next
MSFlexGrid1.Redraw = False
For i = 1 To MSFlexGrid1.Rows - 1
For j = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
MSFlexGrid1.CellBackColor = IIf(i Mod 2 = 0, vbGreen, vbWhite)
Next
Next
MSFlexGrid1.Redraw = True
End Sub