'!TITLE "<Variable>"

Sub Main 

	Dim m_Ctrl as Object	' CaoControllerオブジェクト用
	Dim m_Value as Object	' CaoVariableオブジェクト用

	' 接続
	m_Ctrl = cao.AddController("RC", "CaoProv.DENSO.NetwoRC", "", "conn=eth:10.6.235.60")

	' P10変数の生成
	m_Value =  m_Ctrl.AddVariable("P10", "")

	' P10の値の取得と設定
	Dim vntPotision as Variant
	vntPotision = m_Value.Value ' 値の取得
	m_Value.Value = Array(50, 50, 50, 0, 0, 0, -1) ' 値の設定


	' 切断
	m_Ctrl.Variables.Remove m_Value.Index
	cao.Controllers.Rmove m_Ctrl.Index

End Sub