Right Property Example

This example uses the Left and Right properties to reset the column where the area begins.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object, _
 MyArea As Object

 

 Set Sys = CreateObject("EXTRA.System")

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 Set MyArea = MyScreen.Area(1,1,MyScreen.Rows,1,,3)

 

 MsgBox "The text in column 1 is: " + MyArea.Value

 

 ' This moves the session to the left of the screen.

 MyArea.Left = 2

 MyArea.Right = 2

 

 MsgBox "The test in column 2 is: " + MyArea.Value

End Sub