How to check Connection status in TCP communication

See more:

VB

TcpClient

Dear All,


I have a Tcp CLient Application, which will connect to a Hardware Server via Ethernet Tcp/Ip for Sending and receiving data.

Now I want to check whether Connection between My Application and Server is Active or broken continuously.

I tried the following code

Private Client As New TcpClient



Client.Connect(IpAddr, PortNo)



Function IsConnected() As Boolean
        IsConnected = False
        If (Client.Client.Connected) Then
            If ((Client.Client.Poll(0, SelectMode.SelectWrite)) AndAlso (Not Client.Client.Poll(0, SelectMode.SelectError))) Then
                Dim b As Byte() = New Byte(1) {}
                If Client.Client.Receive(b, SocketFlags.Peek) = 0 Then
                    Return False
                Else : Return True
                End If
            Else
                Return False
            End If
        Else
            Return False

        End If
    End Function

Above Code is giving always TRUE, even if connection is broken.

Can you guys suggest me some thing else which will work for my requirement.

Thank You
Srinivas