مشكلة حول كود الاتصال - نسخة قابلة للطباعة

كود :

Imports System.Net

Imports System.Net.Sockets

Imports System.IO

Public Class Form1

    Sub send_Data(ByRef ip_adderss As String, ByRef port_number As Integer, ByRef the_message As String)

        Dim myclient981 As TcpClient = New TcpClient(ip_adderss, port_number)

        Dim mysn981 As NetworkStream = myclient981.GetStream

        Dim mysw981 As StreamWriter = New StreamWriter(mysn981)

        mysw981.Write(the_message)

        mysw981.Close()

        mysn981.Close()

        myclient981.Close()

        Try



        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub



    Private Sub send_Click(sender As Object, e As EventArgs) Handles send_button.Click

        send_Data(ip_TextBox1.Text, Val(port_TextBox2.Text), message_TextBox.Text)

    End Sub

End Class

كود :

Imports System.Net

Imports System.Net.Sockets

Imports System.Threading

Imports System.IO

Public Class recived_message

    Dim MYTcpListener As TcpListener

    Dim mySocket As Socket

    Dim myth As Thread

    Sub REcivedDate()

        Try

            MYTcpListener = New TcpListener(IPAddress.Any, 9001)

            MYTcpListener.Start()

            While True

                Try

                    mySocket = MYTcpListener.AcceptSocket

                    Dim MyNetworkstream As NetworkStream = New NetworkStream(mySocket)

                    Dim mysr As StreamReader = New StreamReader(MyNetworkstream)

                    Dim x As String = mysr.ReadToEnd

                    message_TextBox.Text = x

                Catch ex As Exception

                    MessageBox.Show(ex.Message)

                End Try

            End While

        Catch ex2 As Exception

            MessageBox.Show(ex2.Message)

        End Try

    End Sub

    Private Sub recived_message_FormClosint(ByRef sender As Object, ByRef e As System.Windows.Forms.FormClosingEventArgs)

        Try

            MYTcpListener.Stop()

            myth.Abort()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Private Sub recived_message_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        myth = New Thread(New System.Threading.ThreadStart(AddressOf REcivedDate))

        myth.Start()

    End Sub

End Class