Example

Dim lsxECLPSObj as new lsxECLPS("A")
Dim lsxECLScreenDescObj as new lsxECLScreenDesc()
 
lsxECLScreenDesObj.AddCursorPos(23, 1)
lsxECLScreenDesObj.AddAttrib(E8h, 1, 1, 2)
lsxECLScreenDesObj.AddCursorPos(23,1)
lsxECLScreenDesObj.AddNumFields(45)
lsxECLScreenDesObj.AddNumInputFields(17)
lsxECLScreenDesObj.AddOIAInhibitStatus(1)
lsxECLScreenDesObj.AddString( "LOGON", 23, 11, 1)
lsxECLScreenDesObj.AddStringInRect( "PASSWORD", 23, 1, 24, 80, 0)
 
if (lsxECLPSObj.WaitForScreen(lsxECLScreenDesObj, 10000)) then
MessageBox("Screen reached")
else
MessageBox("Timeout Occurred")
end if