Dim count as Integer
 
count = .File1.ListCount - 1
If count > 30 then count = 30 'Wenn mehr als 30 Bilder existieren nur die 
' ersten 30
 
' Hierhin. Muss nur einmal gemacht werden. Kostet sonst Rechenzeit
 
S = Dir1.Path 
If Right(S, 1) <> "\" Then S = S & "\" 
 
For I = 0 To count
 
    S = S & File1.List(I) 
    .Image1(I).Picture = LoadPicture(S) 
 
Next I