Example

Dim lsxECLPSObj as new lsxECLPS("A")
Dim autECLScreenDescObj as new lsxECLScreenDesc() 
 
Set autECLScreenDescObj = CreateObject("<dvcfobj props="textent conref-pcomm_short">&pcomm_short;.autECLScreenDesc") 
 
autECLScreenDesObj.AddCursorPos 23, 1
 
if (lsxECLPSObj.WaitForScreen(autECLScreenDesObj, 10000)) then
    MessageBox( "Wait condition met" )
else
    MessageBox( "Timeout Occurred" )
end if