How do I create a parameter set under 3DShape?

I want to create a parameter set under 3DShape, but it doesn't work. What should I do correctly?

Let AdvParame(AdvaisorParameterSet)
Let RepIns(VPMRepInstance)

AdvParame = new("AdvisorParameterSet","NewSet",RepIns)