Width Property Example

After returning the width of the active session window, this example reduces the width by 50%.

Sub Main()

 Dim Sys As Object, Sess As Object

 

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 

 StartingWidth = Sess.Width

 MsgBox "This will shrink the current window by 50% (currenty " + StartingWidth + " pixels)."

 Sess.Width = Int(StartingWidth/2)

End Sub