Mobile

Dim tcpClient As New Sockets.TcpClient
Dim portNumber As Integer = 1414 '????
'ERROR10060 on next line
tcpClient.Connect(New IPEndPoint(IPAddress.Parse("192.168.55.101"), portNumber))

Private Sub listener()
        Dim tcpListener As New Sockets.TcpListener(IPAddress.Parse("192.168.55.101"), 1414)
        tcpListener.Start()
        
        While (True)
            ' Look for notification
            If (tcpListener.Pending()) Then
                ' Get notification message
                Dim tcpClient As Sockets.TcpClient = tcpListener.AcceptTcpClient()
                Dim s As IO.Stream = tcpClient.GetStream()
                Dim buffer(250) As Byte
                Dim bytes As Int16 = s.Read(buffer, 0, buffer.Length)
                Dim message As String = System.Text.Encoding.ASCII.GetString(buffer, 0, bytes)

                ' Send back confirmation
                Dim response As String = "OK"
                Dim responseBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(response.ToCharArray())
                tcpClient.GetStream().Write(responseBytes, 0, responseBytes.Length)

                tcpClient.Close()
                showNotification(message)
            End If
            System.Threading.Thread.Sleep(1000)
        End While
    End Sub