For ItemCountX = 1 To 11
        For ItemCountY = 1 To 4
            Load cmdITEM(ItemCountY)
        
            With cmdITEM(ItemCountY)
                cmdITEM(ItemCountY).Top = cmdITEM(ItemCountY - 1).Top + 900
                cmdITEM(ItemCountY).Visible = True
            End With
        Next ItemCountY
    
        Load cmdITEM(ItemCountX)
        
        With cmdITEM(ItemCountX)
            cmdITEM(ItemCountX).Top = cmdITEM(ItemCountX - 1).Top + 900
            cmdITEM(ItemCountX).Visible = True
        End With
    Next ItemCountX