Exemple

      Dim autECLPSObj as Object Dim autECLScreenDescObj as Object Set autECLScreenDescObj = CreateObject("ZIEWin.autECLScreenDesc") Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName("A") autECLScreenDesObj.AddCursorPos 23, 1 if (autECLPSObj.WaitWhileScreen(autECLScreenDesObj, 10000)) then msgbox "Screen exited" else msgbox "Timeout Occurred" end if