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
Notes
· 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.