Private Sub Form_Load()
   Dim i As Integer
   Dim x As Integer
   Dim y As Integer
 
   'Bei der Grösse fast 650 Buttons
   Const h = 30
   Const w = 40
 
   Me.WindowState = vbMaximized
   Me.ScaleMode = vbPixels
   Me.Show
 
   Do
      If i > 0 Then Load Command1(i)
      With Command1(i)
         .Move x, y, w, h
         .Caption = i
         .Visible = True
      End With
      x = x + w
      If x > Me.ScaleWidth Then
         y = y + h
         x = 0
      End If
      i = i + 1
   Loop Until y > Me.ScaleHeight
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.