Example

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