Private Sub Form_Load()
Dim i As Integer
Dim lngLeft As Long
Dim lngTop As Long
Dim path As String
Dim b As String
Dim Files As String
Dim v As Integer
Dim lstItem As ListItem
 
path = "H:\0000-bmp\"
b = ".bmp"
v = frmMain.ListView1.ListItems.Count
'istI = lstItem
i = 0
'// Für jedes ListItem im ListView...
 
For Each lstItem In frmMain.ListView1.ListItems
   If i > 0 Then
      '// Die erste Picturebox darf nicht
      '// geladen werden die gibt ja schon
 
      Load Picture1(i)
      lngLeft = Picture1(i - 1).Left + Picture1(0).Width + 120
      If lngLeft > Me.ScaleWidth - Picture1(0).Width Then
         '// rechter Rand erreicht
         lngLeft = Picture1(0).Left
         lngTop = Picture1(i - 1).Top + Picture1(0).Height + 120
      End If
 
      Picture1(i).Visible = True
      Picture1(i).Move lngLeft, lngTop
 
   End If
 
   Files = path & lstItem.SubItems(2) & b
   Picture1(i).Picture = LoadPicture(Files)
 
   '// Zähler erhöhen nicht vergessen
   i = i + 1
Next lstItem
End Sub