Exemple

      Dim autECLPSObj as Object Dim sRow, sCol, eRow, eCol, WaitString Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName("A") WaitString = "Enter USERID" sRow = 20 sCol = 16 eRow = 21 eCol = 31 if (autECLPSObj.WaitForStringInRect(WaitString,sRow,sCol,eRow,eCol,10000)) then msgbox WaitString " " found in rectangle" else msgbox "Timeout Occurred" end if