Private Sub Form_Load()
   Dim x As Byte, y As Byte
   Dim xx As Long, yy As Long
 
   cmd1(0).Visible = False
   y = 1
 
   For i = 1 To 100
      Load cmd1(i)
      x = x + 1
      With cmd1(i)
         .Top = cmd1(0).Width * x
         .Left = cmd1(0).Height * y
         .Visible = True
         .Caption = CStr(i)
      End With
      If x = 10 Then
         x = 0
         y = y + 1
      End If
   Next
   y = 0
 
End Sub