'!TITLE "<Cognex In-Sight Sample>"

Sub Main 
	Dim caoCtrl as Object
	Dim caoVal as Object

	caoCtrl = cao.AddController("In-Sight", "caoProv.Cognex.In-Sight", "", "conn=eth:10.6.235.70")
	caoVal = caoCtrl.AddVariable("A000", "Cell=A000")
	
	S10= caoVal.Value

End Sub