Something

    Dim CategoryCount As Integer
    Dim ItemCountX As Integer
    Dim ItemCountY As Integer
    
    For ItemCountX = 1 To 4
        For ItemCountY = 1 To 11
            Load cmdITEM(ItemCountX, ItemCountY)

            With cmdITEM(ItemCountX, ItemCountY)
                cmdITEM(ItemCountX, ItemCountY).Top = cmdITEM(ItemCountX - 1, ItemCountY - 1).Top + 900
                cmdITEM(ItemCountX, ItemCountY).Visible = True
            End With

        Next ItemCountY
    Next ItemCountX