Private Sub Form_Load()
  ' ImageList zuordnen
  With ImageList1
     .ImageHeight = 16: .ImageWidth = 16
 
     .ListImages.Add 1, "OrdnerZu", LoadPicture("C:\Daten\ew.jpg")
     .ListImages.Add 2, "OrdnerOffen", LoadPicture("C:\Daten\ks.jpg")
  End With
 
 
  Set TreeView1.ImageList = ImageList1
 
  ' Startordner
  sDirectory = "c:\daten"
 
  ' Alle Ordner in C: anzeigen
  LoadWithFolders TreeView1, sDirectory, _
    "OrdnerZu", "OrdnerOffen"
End Sub