'Variablen
'max = wieviel passen in eine Reihe
'Reihe = wieviel Reihen werden benötigt
'Anzahl = wieviel sollen erstellt werden
'Breite x Höhe der Bildfelder =  3000 x 3000 Twips
'i = Bildfeldindex
 
Anzahl = InputBox("Anzahl der zu erstellenden Images")
max = (Me.Width / 3000) 
max = Mid(max, 1, 1) 'nur den Wert vor Komma
Reihe = (Anzahl / max)
 
For i = 1 To Anzahl
 Set imgObj = Controls.Add("VB.Image", "imgObj" & i)
 
   With imgObj
 
      .BorderStyle = 1
      .Visible = True
      .Width = 3000
      .Height = 3000
 
      .Left = (i + .Width) * (i - 1)
     '.Top = (i + 1)
   End With