Sub Main
	dbg.ClearLog

	Dim pos(2)
	Dim area(2)

	' Set the robot positon data
	pos(0) = Array(364.16, 0, 278.5355, 180, 0, -180, 5,  0.0, 0.0, 100 * 0.01, 1, 0)
	pos(1) = Array(-63.24, 358.63, 278.54, 180, 0, -80, 5,  0.0, 0.0, 100 * 0.01, 0, 0)
	pos(2) = Array(-60.27, 341.81, 216.31, 180, -10, -80, 5,  0.0, 0.0, 100 * 0.01, 1, 0)

	' Set the area information data
	area(0) = Array(4,4,4,4,0,0)
	area(1) = Array(4,4,4,4,0,0)
	area(2) = Array(4,4,4,4,0,0)

	' Connect to RC8 Provider
	call cao.AddController("rc", "CaoProv.DENSO.RC8", "", "server=192.168.0.1")
	call cao.Controllers("rc").AddRobot("rob")

	' Generate the revised motion position
	with cao.Controllers("rc").Robots("rob")
		vntRet = .Execute("GenerateNonStopPath", Array(pos, area, 3, 1.0, 0.7))
	end with

	' Output the revised motion position
	for idx = 0 to Ubound(vntRet)
		dbg.Output dat.BstrFromVariant(vntRet(idx))
	next
End Sub