Ciao supergonzales,
dato che Shape possiede la proprietà Index, per clonare puoi usare Load. Nel seguente modo ad esempio ad ogni Click clono un oggetto uguale al precedente posizionandolo sotto, a mò di colonna:
codice:
Private Sub Command1_Click()
    ' Ad ogni clic crea un controllo Shape:
        Load Shp(Shp.UBound + 1)
        ' sposta il nuovo Shape sotto il precedente:
        Shp(Shp.UBound).Move Shp((Shp.UBound - 1)).Left, Shp((Shp.UBound - 1)).Top + (Shp((Shp.UBound - 1)).Height)
        ' Lo rendo visibile:
        Shp((Shp.UBound)).Visible = True
End Sub
Ah quasi dimenticavo, il primo controllo va disegnato sulla Frm.