twHoehe = 100 * Screen.TwipsPerPixelY  '100 Pixel in Twips bestimmen für 
    ' diesen Bildschirm
    twBreite = 100 * Screen.TwipsPerPixelX '100 Pixel in Twips bestimmen für 
    ' diesen Bildschirm
 
    AbstandY = (Screen.Height - Hoehe  * twHoehe) / 2 'Felder zentrieren auf 
    ' der Y-Achse
    AbstandX = (Screen.Width - Breite * twBreite) / 2 'Felder zentrieren auf 
    ' der X-Achse
 
    For a = 0 To 1 'Felder Links und Rechts
        For i = 0 To Hoehe - 1  'Anzahl Felder in der Hoehe
            Index = Feld.Count 'Anzahl Bilder
            Load Feld(Index) 'Neues Bild laden
 
            Set Feld(Index).Container = Me 'Form definieren wo sie erstellt 
            ' werden
 
            Feld(Index).Top = AbstandY + i * twHoehe 'Bilder positionieren
            Feld(Index).Left = AbstandX + a * twHoehe * 7
            Feld(Index).Visible = True 'Jetzt noch sichtbar machen
        Next i
    Next a
 
    For a = 0 To 1 'Felder unten und oben
        For i = 1 To Breite - 1 'Bei 1 Anfangen das Feld mit Index 1 schon 
        ' besteht
            Index = Feld.Count 'Anzahl Bilder
            Load Feld(Index) 'Neues Bild laden
 
            Set Feld(Index).Container = Me 'Form definieren wo sie erstellt 
            ' werden
 
            Feld(Index).Top = AbstandY + a * twHoehe * 6 'Bilder positionieren
            Feld(Index).Left = AbstandX + i * twBreite 'Bilder Positionieren
            Feld(Index).Visible = True 'Jetzt noch sichtbar machen
        Next i
    Next a
 
Hoehe ist gleich der Breite definiert.