Rows Property Example

This example displays the number of rows in the active session.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object

 Dim MyArea As Object

 

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 

 MsgBox "The screen has " + Str$(MyScreen.Rows) + " rows."

End Sub