Example
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