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

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