Example

The following example shows how to retrieve characters from a rectangular area in the presentation space for the connection associated with the autECLPS object.

Dim  autECLPSObj as Object
Dim  PSText String
 
' Initialize the connection
Set autECLPSObj = CreateObject ("ZIEWin.autELCPS")
autECLPSObj.SetConnectionByName("A")
 
PSText = GetTextRect(1,1,2,80)