mshflexgrid cell colors

[batsheva]

I want two background colors one for each row in the mshflexgrid control.
e.g. row 1 = red, row 2 = green, row 3 = red, row 4 = green

Any suggestions?

[Iouri]

Public Sub MSFlexGridColors(ColorGrid As MSFlexGrid, R As Integer, G As Integer, B As Integer)

For j = 0 To ColorGrid.Cols - 1
For i = 1 To ColorGrid.Rows - 1
If i / 2 <> Int(i / 2) Then
ColorGrid.Col = j
ColorGrid.Row = i
ColorGrid.CellBackColor = RGB(R, G, B)
End If
Next i
Next j
End Sub


'Then use this code to activat the SUB:
'(general: MSFlexGridColors MSFlexGrid,
' Red, Green, Blue)
MSFlexGridColors Form1.MSFlexGrid, 192, 255, 192'(green/white)


'change colors for whatever you want
for example:
200, 200,200 grey/white
255, 10, 255 purple/white


Iouri Boutchkine
iouri@hotsheet.com