'!TITLE "<Variable>"

Sub Main 

	Dim g_ctrl as Object	' CaoControllerオブジェクト用
	Dim g_val as Object	' CaoVariableオブジェクト用

	' 接続
	g_ctrl = cao.AddController("bCAP", "CaoProv.b-CAP", "", "server=10.6.235.54, provider=CaoProv.DENSO.NetwoRC,timeou=5000,option=(conn=eth:10.6.235.60)")

	' P10変数の生成
	g_val =  g_ctrl.AddVariable("P10", "")

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


	' 切断
	g_ctrl.Variables.Remove g_val.Index
	cao.Controllers.Rmove g_ctrl.Index

End Sub