Dim i_col As Integer
Dim c_col As Integer
c_col = MSFlexGrid1.Col
If c_col > 0 Then
For i_col = 0 To MSFlexGrid1.Cols - 1 Step 2
MSFlexGrid1.Col = i_col
MSFlexGrid1.CellBackColor = &HFFFFC0
Next i_col
For i_col = 1 To MSFlexGrid1.Cols - 1 Step 2
MSFlexGrid1.Col = i_col
MSFlexGrid1.CellBackColor = &H8000000F
Next i_col