'!TITLE "<Robot>"

Sub Main 

	Dim m_Ctrl as Object	' CaoControllerオブジェクト用
	Dim m_Robot as Object	' m_Robototオブジェクト用

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

	' Robotの生成
	m_Robot =  m_Ctrl.AddRobot("Arm", "")

	' Move
	m_Robot.Move 1, "@P P10", "NEXT"


	' 切断
	m_Ctrl.Robots.Remove m_Robot.Index
	cao.Controllers.Rmove m_Ctrl.Index
End Sub