Exemple

      Dim autECLOIAObj as Object Set autECLOIAObj = CreateObject("ZIEWin.autECLOIA") autECLOIAObj.SetConnectionByName("A") if (autECLOIAObj.WaitForAppAvailable (10000)) then msgbox "Application is available" else msgbox "Timeout Occurred" end if