Visual Basic - FelxGrid--ForeColor

Estimados Todos
Hay algún código o propiedad del MsFlexGrid que me permita poner diferente ForeColor a una fila de un MsFlexGrid, digamos la primera fila VbGreen( o su equivalente en exadecimal) la segunda fila VbBlue(o su equivalente) y asi según sea el caso????

Mil gracias por su ayuda!!!

Un abrazo

este codigo colorea las filas de un MSFlexGrid alternativamente:
Dim X As Long, Y As Integer
With MSFlexGrid1
For X = 2 To .Rows - 1 Step 2
.Row = X
For Y = 0 To .Cols - 1
.Col = Y
.CellBackColor = vbGreen
Next Y
Next X
End With
Adáptalo a tus necesidades

Acá te mando el código. También te lo mandé al mail, con una breve explicación

Saludos!

Private Sub ForeColorFlex(ByRef FlexGrid As MSFlexGrid, ByVal Color As ColorConstants, ByVal Clean As Boolean, Optional ByVal Fila As Integer = -1)
Dim i As Integer
Dim j As Integer
Dim iRowInicial As Integer
Dim iColInicial As Integer
Dim iMinRows As Integer
Dim iMaxRows As Integer
Dim iMinCols As Integer
Dim iMaxCols As Integer

FlexGrid.Visible = False

Const COLOR_ORIGINAL = vbBlack

iRowInicial = FlexGrid.Row
iColInicial = FlexGrid.Col
iMinRows = FlexGrid.FixedRows
iMaxRows = FlexGrid.Rows - FlexGrid.FixedRows
iMinCols = FlexGrid.FixedCols
iMaxCols = FlexGrid.Cols - FlexGrid.FixedCols

If Clean Then
For i = iMinRows To iMaxRows
FlexGrid.Row = i
For j = iMinCols To iMaxCols
FlexGrid.Col = j
FlexGrid.CellForeColor = COLOR_ORIGINAL
Next j
Next i
End If

If Fila = -1 Then
FlexGrid.Row = iRowInicial
Else
FlexGrid.Row = Fila
End If

For i = iMinCols To iMaxCols
FlexGrid.Col = i
FlexGrid.CellForeColor = Color
Next i
FlexGrid.Col = iColInicial

FlexGrid.Visible = True

End Sub