Как создать поле 12х5 из кнопок, чтобы нумерация индекса шла по порядку?

Private Sub Form_Load()
 
Dim Com(1 To 60) As CommandButton
Dim HB, WB, X1, Y1, n, x, y As Integer, s As String
 
HB = Form1.Height / 3: WB = Form1.Width / 3
Y1 = Form1.Height / 3: X1 = Form1.Width / 3
 
n = 0: x = X1: y = Y1
For i = 1 To 5
    x = X1
        For j = 1 To 12
            n = n + 1: s = Replace("Com" & Str(n), " ", "")
            Set Com(n) = Me.Controls.Add("VB.CommandButton", s, Me)
            Com(n).Height = HB / 5: Com(n).Width = WB / 12
            Com(n).Visible = True: Com(n).Caption = n: Com(n).Top = y: Com(n).Left = x
            x = x + WB / 12
        Next j
    y = y + HB / 5
Next i
 
 
End Sub

For i = 1 To 5
For j = 1 To 12
   index = 12*(i - 1) + j
   Load cmd(index)
Next j, i
' далее, я надеюсь, вы их сумеете разместить

Private Sub com_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "ok"
End Sub

For i = 1 To 5
For j = 1 To 12
   Index = 12 * (i - 1) + j
   Load cmd(Index)
   cmd(Index).Visible = True
Next j, i

For i = 1 To 5 
For j = 1 To 12
   index = 12 * (i - 1) + j 
   Load cmd(index) 
   cmd(index).Top = 200 * (i - 1) + 300
   cmd(index).Left = 400 * (j - 1) + 300
Next j, i

For i = 1 To 5
For j = 1 To 12
Index = 12 * (i - 1) + j
Load cmd(Index)
cmd(Index).Visible = True
cmd(Index).Caption = cmd(Index).Index
cmd(Index).Top = 600 * (i - 1) + 100
cmd(Index).Left = 1000 * (j - 1) + 100
Next j, i

Private Sub Form_Load()
Dim HCmd, WCmd, X1, Y1, n, x, y As Integer
Cmd(0).Visible = False
'создание дополнительных кнопок
For i = 1 To 60
    Load Cmd(i)
Next i
'HCmd - высота кнопок. WCmd - ширина кнопок- нам нужно уложить 12 штук по длине блока и 5 штук по высоте.
HCmd = Cmd(0).Height / 5: WCmd = Cmd(0).Width / 12
'X1, Y1 координаты верхнего левого угла блока кнопок
X1 = Cmd(0).Left: Y1 = Cmd(0).Top
n = 0    'n - номер выводимой кнопки
'x, y - координаты верхнего левого угла текущей кнопки. Задаем координату верхнего левого угла блока - там будет угол 1-й кнопки
x = X1: y = Y1
For i = 1 To 5
    x = X1
        For j = 1 To 12
            n = n + 1
            Cmd(n).Height = HCmd - 20: Cmd(n).Width = WCmd - 20     '20 - величина зазора между кнопками
            Cmd(n).Visible = True: Cmd(n).Caption = n: Cmd(n).Top = y: Cmd(n).Left = x
            x = x + WCmd
        Next j
    y = y + HCmd
Next i
End Sub

Private Sub Form_Click()
k = 0.8
w = Me.Width / 12
h = Me.Height / 6
Command1(0).Visible = False
On Error Resume Next
For i = 1 To 5
For j = 1 To 12
   Index = 12 * (i - 1) + j
   Load Command1(Index)
   Command1(Index).Visible = False
   Command1(Index).Move w * (j - 1), h * (i - 1), k * w, k * h
   Command1(Index).Visible = True
   Command1(Index).Caption = Index
Next j
Next i
End Sub

Private Sub Form_Resize()