Public Sub UserForm_Activate()
Dim NewImage As MSForms.Image
Dim LastTop As Double
Dim LastLeft As Double
Dim color1 As Variant
color1 = RGB(247, 247, 247)  'hellblau
Dim i As Variant
 
Static flgfirst As Boolean
If flgfirst = True Then Exit Sub
flgfirst = True
 
Dim Dat1 As String
Dat1 = "C:\Temp\"
Dim Dat2 As String
Dat2 = Dir(Dat1 & "*.wmf")
On Error Resume Next
 
LastTop = 10
LastLeft = 10
 
For i = 0 To 20
 
Set NewImage = PreviewFrm.Controls.Add("Forms.Image.1")
With NewImage
    .Height = 95
    .Width = 95
    .PictureSizeMode = fmPictureSizeModeZoom
    .BackColor = color1
Set .Picture = LoadPicture(Dat1 & Dat2)
    Dat2 = Dir
    .Enabled = False
    .Name = Dat2
    .Left = LastLeft
    .top = LastTop
End With
PreviewFrm.ScrollHeight = LastTop + NewImage.Height + 10
If LastLeft + 10 > PreviewFrm.Width - 150 Then
    LastTop = LastTop + NewImage.Height + 10
    LastLeft = 10
Else
    LastLeft = LastLeft + 105
    LastTop = NewImage.top
End If
 
Next
End Sub
 
Private Sub PreviewFrm_MouseDown( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal X As Single, _
    ByVal y As Single)
 
Dim C As Control
For Each C In PreviewFrm.Controls
    If X >= C.Left And X <= C.Left + C.Width And y >= C.top And y <= _
      C.top + C.Height Then
        MsgBox C.Name
        With Image1 'ImageControl zur größeren Anzeige des ausgewählten Bildes
            .PictureSizeMode = fmPictureSizeModeZoom
            .Picture = LoadPicture("C:\Temp\" & C.Name)
        End With
        Exit For
    End If
Next C
End Sub