Private Sub AnzahlBloecke()
ListBoxBlock.Clear
Zaehler = 0
Dim NewImage As MSForms.Image
Dim LastTop As Double
Dim LastLeft As Double
Dim color1 As Variant
color1 = RGB(247, 247, 247)  'hellblau
Dim BlockFile As String
Dim Blocks As String
Dim i As Variant
 
BlockFile = StatusBar1.Panels(2).Text & "\"
 
Blocks = Dir(BlockFile & "*.wmf")   'Alle Bilddateien  im ausgewählten 
' Verzeichnis
 
On Error Resume Next
 
LastTop = 10
LastLeft = 15
 
Do While Blocks <> ""               'Wiederholen bis Blocks=""
    Zaehler = Zaehler + 1           'Anzahl der Bilder im ausgewählten 
    ' Verzeichnis
    With ListBoxBlock
        .AddItem (Blocks)
    End With
    Set NewImage = PreviewFrm.Controls.Add("Forms.Image.1")
    With NewImage
        .Height = 70
        .Width = 70
        .PictureSizeMode = fmPictureSizeModeZoom
        .BackColor = color1
    Set .Picture = LoadPicture(BlockFile & Blocks)
        .Enabled = False
        .Name = Blocks
        .Left = LastLeft
        .top = LastTop
    End With
 
    If LastLeft + 5 > PreviewFrm.Width - 125 Then
        LastTop = LastTop + NewImage.Height + 10
        LastLeft = 15
    Else
        LastLeft = LastLeft + 80
        LastTop = NewImage.top
    End If
 
    Blocks = Dir
Loop

VG

Dirk