Private Sub Form_Load()
 
  Dim x1%, y1%, i%
 
  i = 0
  For x1 = 0 To 5
    For y1 = 0 To 6
      If i > 0 Then Load Feld(i)
      Feld(i).Move 190 + 1750 * x1, 240 + 500 * y1, 1700, 300
      Feld(i).Visible = True
      i = i + 1
    Next y1
  Next x1
 
End Sub

Gruss,

Zardoz