Private Sub UserForm_Initialize()
    Dim fs, f, f1, fc
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("C:\Temp")
    Set fc = f.Files
    Dim oItem As ListItem
    With UserForm1.ListView1
        .View = lvwReport
        .ColumnHeaders.Clear
        .ListItems.Clear
        .ColumnHeaders.Add , , "Datei Name"
    End With
    For Each f1 In fc
        If VBA.Right(f1.Name, 4) = ".wmf" Then
            Set oItem = Me.ListView1.ListItems.Add(, , f1.Name)
        End If
    Next
End Sub

Private Sub cmd2_Click()
Dim NewImage As Image
Dim LastTop As Integer
Dim LastLeft As Integer
Dim cFile As String
Dim i As Integer
LastTop = 10
LastLeft = 10
cFile = Dir("C:\Temp\*.wmf")
Do While cFile <> ""
    Set NewImage = Me.Frame1.Controls.Add("Forms.Image.1")
    NewImage.Height = 40
    NewImage.Width = 40
    NewImage.PictureSizeMode = fmPictureSizeModeZoom
    NewImage.BackStyle = fmBackStyleOpaque
    NewImage.BorderStyle = fmBorderStyleNone
    NewImage.BackColor = _
      Application.Preferences.Display.GraphicsWinModelBackgrndColor
    Set NewImage.Picture = LoadPicture(cFile)
    cFile = Dir
    NewImage.Left = LastLeft
    NewImage.top = LastTop
    NewImage.Tag = i
        Me.ScrollHeight = LastTop + NewImage.Height + 30
    If LastLeft + 50 > Me.Width - 20 Then
        LastTop = LastTop + NewImage.Height + 30
        LastLeft = 10
    Else
        LastLeft = LastLeft + 50
        LastTop = NewImage.top
    End If
Loop
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    If Not ListView1.SelectedItem Is Nothing Then
        MsgBox ListView1.SelectedItem.Text
    End If
End Sub