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