Exemple

      Dim autECLPSObj as Object Dim Row, Col Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName("A") Row = 20 Col = 16 if (autECLPSObj.WaitForCursor(Row,Col,10000)) then msgbox "Cursor is at " " Row " "," " Col else msgbox "Timeout Occurred" end if