Exemple

      Dim autECLPSObj as Object Dim Row, Col, WaitString Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName("A") WaitString = "Enter USERID" Row = 20 Col = 16 if (autECLPSObj.WaitWhileString(WaitString,Row,Col,10000)) then msgbox WaitString " " was found at " " Row " "," " Col else msgbox "Timeout Occurred" end if