Exemple

      Dim autECLOIAObj as Object Set autECLOIAObj = CreateObject("ZIEWin.autECLOIA") autECLOIAObj.SetConnectionByName("A") if (autECLOIAObj.WaitForSystemAvailable(10000)) then msgbox "System Available" else msgbox "Timeout Occurred" end if