'!TITLE "Sample"

#define CAMERA_NUM 201

Sub Main 
	Dim caoCtrl as Object

	caoctrl = cao.AddController("OCV", "caoProv.DENSO.RIL", "", "")
	

	On Error Goto ErrorProc

	' 拡張カメラの更新を行う、　失敗したらカメラの再接続を行う
	caoCtrl.ExtExecSoftTrigger CAMERA_NUM
	caoCtrl.ExtRefreshImage CAMERA_NUM
	
	Exit Sub

ErrorProc:
	On Error Goto ErrorProc
	Delay 1000
	' 拡張カメラの切断・接続 失敗し続けると無限ループに入るので注意
	caoCtrl.ExtDisconnect CAMERA_NUM
	caoCtrl.ExtConnect CAMERA_NUM

End Sub