VB怎样用代码来排列控件？

有26个checkbox 控件组 名字为 check1(1)到check1(26) 请问怎么用代码把这26个checkbox排列为5排,前面4排每行6个 最后一排2个
就像下面一样：
* * * * * *
* * * * * *
* * * * * *
* * * * * *
* *
请一定要注释 谢谢了

Private Sub Form_Load()
t1 = 500 '与窗体上边距离
l1 = 500 '与窗体左边距离
For i = 1 To 26
Check1(i).Move l1, t1 '将控件移到指定位置
l1 = l1 + 1000 '控件宽度
If i Mod 6 = 0 Then '每隔六个
t1 = t1 + 800 '将t1加上一定距离
l1 = 500 '与窗体左边距离归回默认值
End If
Next i
End Sub

应该是这样. for i = 1 to 4 print string(2 * i - 1, chr(asc("a") + i - 1)) next