dmarescajr

Option Explicit

Private Sub Form_Load()
    Dim CategoryCount As Integer
    Dim ItemCount As Integer
  
    
    For CategoryCount = 1 To 10
        Load cmdCAT(CategoryCount)
    
        With cmdCAT(CategoryCount)
            cmdCAT(CategoryCount).Top = cmdCAT(CategoryCount - 1).Top + 900
            cmdCAT(CategoryCount).Visible = True
        End With
    Next CategoryCount
        
    For ItemCount = 1 To 10
        Load cmdITEM(ItemCount)
        
        With cmdITEM(ItemCount)
            cmdITEM(ItemCount).Top = cmdITEM(ItemCount - 1).Top + 900
            cmdITEM(ItemCount).Visible = True
        End With
    Next ItemCount
    
    For ItemCount = 11 To 19
        Load cmdITEM(ItemCount)
        
        With cmdITEM(ItemCount)
            cmdITEM(ItemCount).Left = cmdITEM(ItemCount - 2).Left + 1800
            cmdITEM(ItemCount).Visible = True
        End With
    Next ItemCount

    For ItemCount = 20 To 27
        Load cmdITEM(ItemCount)
        
        With cmdITEM(ItemCount)
            cmdITEM(ItemCount).Top = cmdITEM(ItemCount - 3).Top + 900
            cmdITEM(ItemCount).Left = cmdITEM(ItemCount - 3).Left + 1510
            cmdITEM(ItemCount).Visible = True
        End With
    Next ItemCount

End Sub