VB Code:
  1. Dim DefaultTop As Integer

  2. Dim Rows As Integer, Cols As Integer

  3. DefaultTop = cmdBlock(0).Top

  4.  
  5. Rows = 4

  6. Cols = 5

  7.  
  8. For l = 1 To (Rows * Cols) - 1

  9.     If l > cmdBlock.UBound Then Call Load(cmdBlock(l))

  10.   

  11.     cmdBlock(l).Caption = "Some Title " & l

  12.     cmdBlock(l).Visible = True

  13.  
  14.     cmdBlock(l).Top = (cmdBlock(l - 1).Top + cmdBlock(l - 1).Height + 18)

  15.     cmdBlock(l).Left = cmdBlock(l - 1).Left

  16.     If (l Mod Rows) = 0 Then

  17.         cmdBlock(l).Top = DefaultTop

  18.         cmdBlock(l).Left = Int(l / 4) * (cmdBlock(l).Width + 10) + 8

  19.     End If

  20. Next l

non ?