Cols Property Example
image\btn_print.gif

This example displays the number of columns in the Screen object.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object, 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.Cols) + " columns."

End Sub