色んなパラメーターの作成

dim oPSet,oPPGLayout, oItem

'Demoというパラメーターをセット
set oPSet=ActiveSceneRoot.AddProperty("CustomProperty",false,"Demo")

'パラメーターを作る。3.5より特殊

oPset.AddParameter3 "MyCombo", siString, "Yellow"

'これからレイアウトしますよーみたいなの
set oPPGLayout = oPSet.PPGLayout

'コンボボックスを表示。MyComboに項目を足す。Arrayで加えるかんじ
aComboItems = Array( "Orange", "Orange","Yellow", "Yellow","Apple", "Apple" )

oPPGLayout.AddEnumControl "MyCombo", aComboItems, "Things", siControlCombo

'上の最後の部分をこの３つのどれかに変えるとレイアウトが変わる
'siControlCombo siControlListBox siControlRadio

'パラメーターを開く

InspectObj oPSet