Example

This example returns and displays the contents of the current display screen.

Click here to see additional examples that use GetText.

Sub GetScreenDisplay ()

With Session

  Dim Text as string

  Dim TopRow, LastRow, LastColumn As Integer

  TopRow = .ScreenTopRow 

  LastRow = TopRow + .DisplayRows

  LastColumn = .DisplayColumns

Text = .GetText(TopRow, 0, LastRow, LastColumn)

Msgbox Text

End With

End Sub