以下是主程序
Private Sub Command5_Click()
Dim i, k, z1, x1, y1 As Integer


For i = 0 To 567
Label1(i).Width = 200
Label1(i).Height = 600
Next i
z1 = 0
    For i = 1 To maxcols
    x1 = 400 + i * 800
    y1 = 8000 - startcount(i) * 300
    For k = 1 To maxcount(i)
   
        Label1(z1).Left = x1 + ((k - 1) Mod 4) * 200
        Label1(z1).Top = y1 - ((k - 1) \ 4) * 600
        Label1(z1).BackColor = RGB(0, 255, 0) '绿色
        Label1(z1).Caption = ""
        z1 = z1 + 1
   Next k
Next i
End Sub

以下是module中的程序

Public maxcount(1 To 12) As Integer
Public startcount(1 To 12) As Integer
Public maxcols As Integer



Option Explicit




Sub main()



maxcount(1) = 40
maxcount(2) = 44
maxcount(3) = 48
maxcount(4) = 52
maxcount(5) = 48
maxcount(6) = 52
maxcount(7) = 52
maxcount(8) = 48
maxcount(9) = 52
maxcount(10) = 48
maxcount(11) = 44
maxcount(12) = 40
startcount(1) = 3
startcount(2) = 2
startcount(3) = 1
startcount(4) = 0
startcount(5) = 1
startcount(6) = 0
startcount(7) = 0
startcount(8) = 1
startcount(9) = 0
startcount(10) = 1
startcount(11) = 2
startcount(12) = 3
maxcols = 12

End Sub

运行后，只进行了第一个for循环，后面的都没结果，帮忙看看问题在哪里