Dim Pfad1$, Pfad2$, pfad3$, XPos&, YPos&
Pfad1 = "C:\Dokumente und Einstellungen\Desktop\Visual Basic Code\ V1" 'Pfad 
' eines Ordners mit Bildern
Me.MousePointer = 13
Me.ScaleMode = vbPixels
With Picture1
.Visible = False
.BorderStyle = 0
.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 & "\*.bmp") 'Bildtyp
Do While Pfad2 <> ""
Picture1.Cls
Picture1.PaintPicture LoadPicture(Pfad1 & "\" & Pfad2), 0, 0, 32, 32
.Row = YPos
.Col = XPos
Set .CellPicture = Picture1.Image
MSFlexGrid1.CellAlignment = 2
 
MSFlexGrid1.TextMatrix(YPos, XPos) = Pfad2
 
XPos = (XPos + 1) Mod .Cols
 
If XPos = 0 Then YPos = YPos + 1
Pfad2 = Dir
DoEvents
Loop
End With
Me.MousePointer = 0
End Sub