With MSFlexGrid1
    .Row = 1
    .Col = 2
    .CellForeColor = vbBlue
    .CellBackColor = vbWhite
  End With

' Vorder- und/oder Hintergrundfarbe einer einzelnen Zelle ändern
Private Sub SetCellColor(Optional ByVal nRow As Long = -1, _
  Optional ByVal nCol As Long = -1, _
  Optional ByVal nForeColor As Variant, _
  Optional ByVal nBackColor As Variant)
 
  With MSFlexGrid1
    If nRow <> -1 Then .Row = nRow
    If nCol <> -1 Then .Col = nCol
    If Not IsMissing(nForeColor) Then .CellForeColor = nForeColor
    If Not IsMissing(nBackColor) Then .CellBackColor = nBackColor
  End With
End Sub

SetGridColor 1, 2, vbBlue, vbWhite

SetGridColor , , vbBlue, vbWhite

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de