Private Sub Form_Load()
 Dim i As Integer
 
 For i = 1 To 20
  Load PrePic(i)
  With PrePic(i)
   If i < 11 Then   'die erste zeile
      .Left = PrePic(i - 1).Left + PrePic(i - 1).Width + 240
      .Visible = True
   Else ' das soll nun die zweite zeile werden aber da scheiden sich die geister
      .Top = PrePic(0).Top + PrePic(0).Height + 240
      .Left = PrePic(0).Left + PrePic(i - 1).Width + 240
      .Visible = True
   End If
  End With
 Next
End Sub