Private Sub Form_Load()
 
Dim i As Long
 
With flx
   .Redraw = False
   .Rows = 15
   .FixedRows = 0 'keine Festzeile
   .RowHeightMin = 2400 'Zeilenhöhe
   .ColWidth(0) = .RowHeight(0) 'Breite 1. Spalte wie Zeilenhöhe
   .ColWidth(1) = .Width - .ColWidth(0) 'Breite 2. Spalte bis Flex-Breite
 
   For i = .FixedRows To .Rows - 1
       .Col = .FixedCols - 1 'Spalte angeben
       .Row = i 'Zeile angeben
        .CellPictureAlignment = 4 'CenterCenter
         Set .CellPicture = iml1.ListImages(i + 1).Picture 'Bild aus Imagelist
   Next i
   .Redraw = True
End With
End Sub

Gru? aus dem Norden
manyki