'!TITLE "ProSum.pcs"

Sub Main 
	Dim caoCtrl as Object
	Dim M(20) as Object
	Dim vntRet as Variant

	caoCtrl = cao.AddController("eigen", "caoProv.Eigen.Eigen3", "", "")
	M(1) = caoCtrl.AddVariable("ID=1", "3,2")
	M(2) = caoCtrl.AddVariable("ID=2", "3,2")
	M(3) = caoCtrl.AddVariable("ID=3", "3,2")
	M(4) = caoCtrl.AddVariable("ID=4", "3,2")
	M(5) = caoCtrl.AddVariable("ID=5", "3,2")
	M(6) = caoCtrl.AddVariable("ID=6", "3,2")
	M(11) = caoCtrl.AddVariable("ID=11", "3,2")
	M(12) = caoCtrl.AddVariable("ID=12", "3,2")

	' 初期値代入
	M(1).Value = Array(1,1,1,-1,0,1)
	M(2).Value = Array(1,1,1,-1,0,1)
	M(3).Value = Array(1,1,1,-1,0,1)
	M(4).Value = Array(1,1,1,-1,0,1)
	M(5).Value = Array(1,1,1,-1,0,1)
	M(6).Value = Array(1,1,1,-1,0,1)
	

	' M11に1〜3の合計を入れる
	caoCtrl.Sum M(1).ID, M(2).ID, M(3).ID, M(11).ID

	' M12に1〜6の合計を入れる
	caoCtrl.Sum 1,2,3,4,5,6, 12

	' M11表示
	vntRet = M(11).Value
	PrintDbg vntRet(0) & ", " & vntRet(1) & ", " & vntRet(2)
	PrintDbg vntRet(3) & ", " & vntRet(4) & ", " & vntRet(5)

	' M12表示
	vntRet = M(12).Value
	PrintDbg vntRet(0) & ", " & vntRet(1) & ", " & vntRet(2)
	PrintDbg vntRet(3) & ", " & vntRet(4) & ", " & vntRet(5)
	
End Sub