Example

Dim autECLOIAObj as Object
Dim Index 
 
Index = 03h
 
Set autECLOIAObj = CreateObject("<dvcfobj props="textent conref-pcomm_short">&pcomm_short;.autECLOIA")
autECLOIAObj.SetConnectionByName("A")
 
if (autECLOIAObj.WaitForTransition(Index,10000)) then
    msgbox "Position " " Index " " of the OIA Changed"
else
    msgbox "Timeout Occurred"
end if