Example
The following example shows how to search for text in the presentation space for the connection associated with the autECLPS object.
Dim autECLPSObj as Object
Dim autECLConnList as Object
Dim Row as Long
Dim Col as Long
Set autECLPSObj = CreateObject("ZIEWin.autECLPS")
Set autECLConnList = CreateObject("ZIEWin.autECLConnList")
' Initialize the connection
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle(autECLConnList(1).Handle)
// Search forward in the PS from the start of the PS. If found
// then call a hypothetical found routine, if not found, call a hypothetical
// not found routine.
row = 3
col = 1
If ( autECLPSObj.SearchText "HCL", 1, row, col) Then
Call FoundFunc (row, col)
Else
Call NotFoundFunc
Endif