Example

Dim lsxECLPSObj as new lsxECLPS("A")
Dim Row, Col, WaitData, MaskData, plane as Long
 
Row = 20
Col = 16
WaitData = E8h
MaskData = FFh
plane = 3
 
if (lsxECLPSObj.WaitWhileAttrib(Row, Col, WaitData, MaskData, plane, 10000)) then
    MessageBox( "Wait condition met" )
else
    MessageBox( "Timeout Occurred" )
end if