Example
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.WaitForScreen(autECLScreenDesObj, 10000)) then
msgbox "Screen found"
else
msgbox "Timeout Occurred"
end if