'!TITLE "<Task>"

Sub Main 

	Dim m_Ctrl as Object	' CaoControllerオブジェクト用
	Dim m_Task as Object	' CaoTaskオブジェクト用

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

	' Taskの生成
	m_Task =  m_Ctrl.AddTask("Pro1", "")

	' Taskの開始
	m_Task.Start 2


	' 切断
	m_Ctrl.Tasks.Remove m_Task.Index
	cao.Controllers.Rmove m_Ctrl.Index

End Sub