MsFlexColor

'Incollare questo codice in un modulo


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

'Usare questo codice per attivare la SUB

'MSFlexGridColors MSFlexGrid, Red, Green, Blue)

MSFlexGridColors Form1.MSFlexGrid, 192, 255, 192
MSFlexgrid name, RGB values