Example

Dim lsxECLOIAObj as new lsxECLOIA("A")
Dim Index as Long
 
Index = 03h
 
if (lsxECLOIAObj.WaitForTransition(Index,10000)) then
MessageBox("OIA changed")
else
MessageBox("Timeout Occurred")
end if