Public Sub coloredRows(flGrid, color1 As Variant, color2 As Variant)
    '   erzeugen alternierend gefärbter Zeilen
    '   flGrid- das FlexGrid, color1- die eine Farbe, color2- die andere Farbe
    '   Aufruf (Beispiel): coloredRows myFlex, &H80000005, &HC0E0FF
    Dim i&
 
    With flGrid
      .Redraw = False
      .BackColor = color1
      .FillStyle = flexFillRepeat
      For i = .FixedRows To .Rows - 1 Step 2
        .Row = i
        .Col = .FixedCols
        .ColSel = .Cols - 1
        .CellBackColor = color2
      Next i
      .FillStyle = flexFillSingle
      .ScrollTrack = True
      .Redraw = True
    End With
End Sub

Salzburger