Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
  Call AddFolders(TreeView1, Node, _
    sDirectory & "\" & Node.FullPath, _
    "O_zu", "O_auf")
        '"OrdnerZu", "OrdnerOffen")
End Sub
 
Public Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
PreviewFrm.Controls.Clear
CheckBoxUrsprung.Value = False
With ImageBildGross
    .Visible = False
    .Picture = LoadPicture()
End With
 
ComboBox2.Clear
Call AddSubFolders(TreeView1, Node, sDirectory & "\" & Node.FullPath, "O_zu", _
  "O_auf")
BlockVer.Caption = sDirectory & "\" & Node.FullPath
 
StatusBar1.Panels(1).Text = "Ausgewählter Block = " & ""
With BlockEin1
    .Picture = ImageList1.ListImages(3).Picture
    .Locked = True
End With
 
Dim PdfString As String
PdfString = sDirectory & "\" & Node.FullPath & "\"
Dim Verzpfad As String
Verzpfad = Dir(PdfString & "*.pdf")
Do While Verzpfad <> "" 'Wiederholen bis cFile=""
    With ComboBox2
        .AddItem (Verzpfad)
        'nächste Datei
    Verzpfad = Dir ' Aufruf der Funktion ohne Parameter!!
        .ListIndex = 0
    End With
Loop
 
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

VG

Dirk