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
Dim Dat1 As String
Dat1 = PdfString
Dim Dat2 As String
Dat2 = Dir(Dat1 & "*.wmf")
 
Dim Anzahl As String
Anzahl = 0
On Error Resume Next
 
LastTop = 10
LastLeft = 5
 
Do While Dat2 <> ""
Anzahl = Anzahl + 1
Set NewImage = PreviewFrm.Controls.Add("Forms.Image.1")
With NewImage
    .Height = 70
    .Width = 70
    .PictureSizeMode = fmPictureSizeModeZoom
    .BackColor = color1
Set .Picture = LoadPicture(Dat1 & Dat2)
    .Enabled = False
    .Name = Dat2
    .Left = LastLeft
    .top = LastTop
End With
PreviewFrm.ScrollHeight = LastTop + NewImage.Height + 5
If LastLeft + 5 > PreviewFrm.Width - 125 Then
    LastTop = LastTop + NewImage.Height + 10
    LastLeft = 5
Else
    LastLeft = LastLeft + 80
    LastTop = NewImage.top
End If
     Dat2 = Dir
Loop
End Sub

Public Sub PreviewFrm_MouseDown( _
    ByVal Button As Integer, _
    ByVal Shift As Integer, _
    ByVal X As Single, _
    ByVal Y As Single)
 
Dim color1 As Variant
color1 = RGB(247, 247, 247)  'hellblau
 
Dim PicLoad As String
PicLoad = BlockVer.Caption
 
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
        StatusBar1.Panels(1).Text = "Ausgewählter Block = " & C.Name
        With ImageBildGross 'ImageControl zur größeren Anzeige des ausgewählten 
        ' Bildes
            .Visible = True
            .BackColor = color1
            .PictureSizeMode = fmPictureSizeModeZoom
            .Picture = LoadPicture(PicLoad & "\" & C.Name)
        End With
        If StatusBar1.Panels(1).Text = "Ausgewählter Block = " & C.Name Then
            With BlockEin1
                .Picture = ImageList1.ListImages(4).Picture
                .Locked = False
            End With
        Else
            With BlockEin1
                .Picture = ImageList1.ListImages(3).Picture
                .Locked = True
            End With
        End If
        BlockEin1.SetFocus
        Exit For
    End If
Next C
End Sub

VG

Dirk