Exemple

      Dim autECLPSObj as Object Dim Row, Col, WaitData, MaskData, plane Set autECLPSObj = CreateObject("ZIEWin.autECLPS") autECLPSObj.SetConnectionByName("A") Row = 20 Col = 16 WaitData = E8h MaskData = FFh plane = 3 if (autECLPSObj.WaitForAttrib(Row, Col, WaitData, MaskData, plane, 10000)) then msgbox "Attribute " " WaitData " " found" else msgbox "Timeout Occurred" end if