Col Property Example

This example displays the row and column cursor position of the active session.

Sub Main()

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

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 CurrentRow = MyScreen.Row

 CurrentCol = MyScreen.Col

 MsgBox "The cursor is at " + Str$(CurrentRow) + "," + Str$(CurrentCol) + "."

End Sub