Dim Pfad1$, Pfad2$, Pfad3$, XPos&, YPos&
 
Me.MousePointer = vbHourglass
Pfad1 = "C:\Pictures" 'Pfad eines Ordners mit Bildern
Me.ScaleMode = vbPixels
With Picture1
  .Visible = False
  .BorderStyle = vbBSNone
  .ScaleMode = vbPixels
  .AutoRedraw = True
  .Move 0, 0, 32, 32
End With
XPos = 0
YPos = 0
With MSFlexGrid1
  .FixedRows = 0
  .FixedCols = 0
  .Rows = 200
  .Cols = 4
  .ScrollTrack = True
  .RowHeight(-1) = 48 * Screen.TwipsPerPixelX
  .ColWidth(-1) = 60 * Screen.TwipsPerPixelY
  Pfad2 = Dir$(Pfad1 & "\*.*")
  Do While Pfad2 <> ""
    Select Case Mid$(Pfad2, 1 + InStrRev(Pfad2, "."))
      Case "bmp", "jpg", "jpeg" 'Liste der zulässigen Bilddateien
 
        Picture1.Cls
        Picture1.PaintPicture LoadPicture(Pfad1 & "\" & Pfad2), 0, 0, 32, 32
        .Row = YPos
        .Col = XPos
        Set .CellPicture = Picture1.Image
        .CellAlignment = flexAlignLeftBottom
 
        .Text = Pfad2
 
        XPos = (XPos + 1) Mod .Cols
 
        If XPos = 0 Then YPos = YPos + 1
 
    End Select
    Pfad2 = Dir$
    DoEvents
  Loop
End With
Me.MousePointer = vbDefault

Gruss,

Zardoz