socket timeout

 Dim send As New Socket(ipAddress.AddressFamily, SocketType.Stream, ProtocolType.Tcp)
            send.SendTimeout = 1000
            send.ReceiveTimeout = 1000
            send.Connect(remoteEP)


fuente