Example

Dim autECLOIAObj as Object
 
Set autECLOIAObj = CreateObject("ZIEWin.autECLOIA")
autECLOIAObj.SetConnectionByName("A")
 
if (autECLOIAObj.WaitForInputReady(10000)) then
msgbox "Ready for input"
else
msgbox "Timeout Occurred"
end if