Sub TestForm_OnLoad()
 	Dim IO
	Set IO = GetObject("","Cubes.IScriptCubeIO")
	Dim rows
	rows = IO.GetOutputCubeRows(0)

	'Change the value layer on the output to manual layer

	For i=0 To rows-1

		IO.GetOutputCubeCell(0,i).SetValueLayer(1)
	Next 
		

 End Sub