This example demonstrates using the IServerDisconnect interface from the Servers collection to catch the OnDisconnect event in Visual Basic. The example uses a form with two buttons. The first button signs up for the events. The second button does an Open and Close on the Server which causes the OnDisconnect event to be fired.
Note, one could also sign up for the event from the Server object by setting the IServerDisconnect object to the Server object ( Set isrvdis = srv ).
Option Explicit Dim WithEvents srvdisc As ServerDisconnectEvents Dim srv As Server Private Sub Command1_Click() Set srv = Servers.DefaultServer Dim isrvdis As IServerDisconnect Set isrvdis = Servers Set srvdisc = isrvdis.DisconnectEvents End Sub Private Sub Command2_Click() srv.Open srv.Close End Sub Private Sub srvdisc_OnDisconnect(ByVal pServer As PISDK.Server) MsgBox "disconnected from " + pServer.Name End Sub