Private Sub Form_Load()
 
Dim i%
 
Me.ScaleMode = vbpixels
With MSFlexGrid1
  .Redraw = False
  .FixedCols = 0
  .FixedRows = 0
  .AllowBigSelection = False
  .SelectionMode = flexSelectionByRow
  .HighLight = flexHighlightNever
  .ScrollTrack = True
  .GridLines = flexGridNone
  .ScrollBars = flexScrollBarVertical
  .Rows = 0
  .ColWidth(0) = .Width * Screen.TwipsPerPixelX
  For i = 1 To 1000
    .AddItem "Zeile" & i
    .Row = i - 1
    .CellBackColor = Rnd * vbWhite
  Next i
  .Redraw = True
End With
 
End Sub

Gruss,

Zardoz