With MSFlexGrid1
  .Redraw = False
  .Width = Me.ScaleX(70, vbPixels, Me.ScaleMode)
  .Height = Me.ScaleY(150, vbPixels, Me.ScaleMode)
  .FixedCols = 0
  .FixedRows = 0
  .Rows = 4
  .Cols = 1
  .ColWidth(0) = 40 * Screen.TwipsPerPixelX
  .RowHeight(-1) = 40 * Screen.TwipsPerPixelY
  For i = 0 To .Rows - 1
    .Row = i
    .Col = 0
    Set .CellPicture = LoadPicture("C:\Icon" & i & ".ico")
    .CellPictureAlignment = flexAlignCenterCenter
  Next i
  .Row = 0
  .Col = 0
  .ScrollTrack = True
  .Redraw = True
End With

Gruss,

Zardoz