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.WaitWhileScreen(autECLScreenDescObj, 10000))  then
    msgbox "Screen exited"
else
    msgbox "Timeout Occurred"
end if