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