C# / VB.NET - Come gestire la disconnessione di un client da un server in VB.NET?

Salve,

sono nuovo del forum, avrei bisogno di capire come intercettare l'evento di disconnessione di un client dal software server che sto sviluppando.

di seguito posto il codice sviluppato fino ad ora, spero mi riusciate ad aiutare

        Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        serverSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim IpEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 8888)
        serverSocket.Bind(IpEndPoint)
        serverSocket.Listen(20)
        serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
    End Sub

    Private Sub OnAccept(ByVal ar As IAsyncResult)
        clientSocket = serverSocket.EndAccept(ar)
        serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
        AddClient(clientSocket)
    End Sub

    Delegate Sub _AddClient(ByVal client As Socket)
    Private Sub AddClient(ByVal client As Socket)
        If InvokeRequired Then
            Invoke(New _AddClient(AddressOf AddClient), client)
            Exit Sub
        End If
        txtStatoServer.Text &= "Connesso " & CStr((IPAddress.Parse(CType(client.RemoteEndPoint, IPEndPoint).Address.ToString).ToString)) & vbCrLf
    End Sub

Semplicemente alla disconnessione del client gli fai mandare un messaggio di servizio che dice che si è disconnesso.