Example
Dim autECLOIAObj as Object
Dim Index
Index = 03h
Set autECLOIAObj = CreateObject("ZIEWin.autECLOIA")
autECLOIAObj.SetConnectionByName("A")
if (autECLOIAObj.WaitForTransition(Index,10000)) then
msgbox "Position " " Index " " of the OIA Changed"
else
msgbox "Timeout Occurred"
end if