# $language = "VBScript"
# $interface = "1.0"

Sub Main
Dim x,y
' Get the current SecureNetTerm screen width
x = snt.GetViewWidth
' Get the current SecureNetTerm screen height
y = snt.GetViewHeight
snt.Synchronous = False
' Display the screen size on the SecureNetTerm's status line
snt.StatusLine "Screen: x=" & x & "  y=" & y
snt.Caption = "Testing"
End Sub