Private Sub WinSockCliente_ClienteRecibido(pCliente As String) Handles WinSockCliente.ClienteRecibido

        If pCliente = "CLIEB" Then
            ListBox1.Items.Clear()
        Else
            Me.ListBox1.Items.Add(pCliente)

        End If

    End Sub