Exemple

      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