Public Sub UserForm_Activate()
Dim color1 As Variant
color1 = RGB(247, 247, 247)  'hellblau
Dim i%, j%, N%, NewImage As MSForms.Image
Static flgfirst As Boolean
If flgfirst = True Then Exit Sub
flgfirst = True
Dim Dat1$, Dat2$
Dat1 = "C:\Temp\"
Dat2 = Dir$(Dat1 & "*.wmf")
N = 0
For j = 0 To 4
  For i = 0 To 4
    N = N + 1
    Set NewImage = UserForm2.Controls.Add("Forms.Image.1")
    With NewImage
      If Dat2 <> "" Then
        Set .Picture = LoadPicture(Dat1 & Dat2)
        Dat2 = Dir
      End If
      .Move 4 + 50 * i, 4 + 50 * j, 48, 48
      .BackColor = color1
      .Enabled = False
      .PictureSizeMode = fmPictureSizeModeZoom
      .Tag = "@@@" & Dat2
    End With
  Next i
Next j
End Sub
 
Private Sub UserForm_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 UserForm2.Controls
 If Left(C.Tag, 3) = "@@@" Then
    If X >= C.Left And X <= C.Left + C.Width And Y >= C.top And Y <= _
      C.top + C.Height Then
      MsgBox C.Tag '& vbCr
'        With Image1 'ImageControl zur größeren Anzeige des ausgewählten Bildes
'            .PictureSizeMode = fmPictureSizeModeZoom
'            .Picture = LoadPicture("C:\Temp\" & C.Tag)
'        End With
       Exit For
    End If
  End If
Next C
End Sub
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim C As Control
For Each C In UserForm2.Controls
  If Left$(C.Tag, 3) = "C:\Temp" Then UserForm2.Controls.Remove C.Name
Next C
End Sub