Screen Property Example

This example moves a selected line from the top of the screen to the bottom.

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

 

 ' This example moves a selected line from the top of the screen
 ' to the bottom.

 Set MyScreen = Sess.Screen

 For i = 1 to MyScreen.Rows

  MyScreen.Select i,1,i,MyScreen.Cols

 Next

End Sub