This statement sets the status line text to the default display, showing the current terminal emulation and connection status:
Session.StatusLineText = ""
This statement displays the current time in the status line:
Session.StatusLineText = Time$
The following procedure creates an event that executes the statement shown above once a second, dynamically updating the status line to show the current time. Note: You can also define an event of this type using the Events Setup dialog box.
Sub DisplayTimeOnStatusLine
With Session
.OnEvent rcNextEvent, rcTime, rcVBCommand, _
".StatusLineText = Time$ ", _
rcEnable, rcEventReenable, "1"
End With
End Sub