This procedure displays a message box with the host name immediately after a connection from the host has terminated.

Private Sub Session_AfterDisconnect()

 MsgBox "Your connection to " & Session.ConnectionSetting("host") & _

    " has terminated."

End Sub


· This procedure must be located in the code module for the ThisSession object.

· The underscore line continuation character (a space followed by an underscore) is used to break up the long line of code.