'Benötigt werden: 1 Flexgrid, 1 PictureboxPrivate
 
Sub Form_Activate()
 
Dim Pfad1$, Pfad2$, XPos&, YPos&
 
Pfad1 = "BilderOrdner" 'Pfad eines Ordners mit Bildern
 
Me.MousePointer = 13
 
Me.ScaleMode = vbPixels
 
With Picture1
    .Visible = False
    .BorderStyle = 0
    .ScaleMode = vbPixels
    .AutoRedraw = True
    .Move 0, 0, 102.4, 78.6
End With
 
XPos = 0
YPos = 0
 
With MSFlexGrid1
    .FixedRows = 0
    .FixedCols = 0
    .Rows = 100 'Legt die Anzahl der Reihen fest
    .Cols = 3 'Legt die Anzahl der Spalten fest
    .ScrollTrack = True 'Wenn Flexgrid gescrallt wird, läuft das Bild in 
    ' Echtzeit!
    .RowHeight(-1) = 78.6 * Screen.TwipsPerPixelX 'Rechnet die Höhe in Twips um 
    ' un legt sie fest.
    .ColWidth(-1) = 102.4 * Screen.TwipsPerPixelY 'Rechnet die Breite in Twips 
    ' um und legt sie fest.
    Pfad2 = Dir(Pfad1 & "\*.jpg") 'Bildtyp
 
        Do While Pfad2 <> ""
        Picture1.Cls 'Leert die PictureBox
        Picture1.PaintPicture LoadPicture(Pfad1 & "\" & Pfad2), 0, 0, 102.4, _
          78.6
        .Row = YPos
        .Col = XPos
        Set .CellPicture = Picture1.Image
        XPos = (XPos + 1) Mod .Cols
            If XPos = 0 Then YPos = YPos + 1
            Pfad2 = Dir
            DoEvents
        Loop
 
End With
 
Me.MousePointer = 0
 
End Sub