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
 
lsxECLScreenDesObj.Clear // start over for a new screen