Dim i&, j&
 
With MSFlexGrid1
  .Redraw = False
  .FillStyle = flexFillRepeat
  For i = .FixedRows To .Rows - 1 Step 4
    .Row = i
    .Col = .FixedCols
    .ColSel = .Cols - 1
    .CellBackColor = vbGreen
  Next i
  For i = .FixedCols To .Cols - 1 Step 4
    .Row = .FixedRows
    .Col = i
    .RowSel = .Rows - 1
    .CellBackColor = vbRed
  Next i
  .FillStyle = flexFillSingle
  .Row = .FixedRows
  .Col = .FixedCols
  .ScrollTrack = True
  .Redraw = True
End With

Gruss,

Zardoz