trying to make a TCP/IP Chat Program

Code:

Dim Listener As New TcpListener(65535)

    Dim Client As New TcpClient

    Dim Message As String = ""

    ' Dim ListenerThread As New Thread(New ThreadStart(AddressOf Listening))



    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click

  '  If cmbAddress.Text.Length < 4 Then

  '  MessageBox.Show("Please Enter a Valid Address", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

  '    Else

  '  If txtName.Text = "" Then

  ' MsgBox("Please enter a name!!", MsgBoxStyle.Critical)

  ' Else

  btnConnect.Text = "Connecting"

  Dim pingresult As String = My.Computer.Network.Ping("192.168.1.2")

  If pingresult = "True" Then

    btnConnect.Text = "Connected"

    Form15.Show()

  Else

    btnConnect.Text = "Disconnected"

    '  End If

    '  End If

  End If

    End Sub

Code:

Dim Client As New TcpClient

    Dim Message As String = ""

    Dim Listener As New TcpListener(65535)

    Dim Listener1 As New TcpListener(65534)

    Dim Client1 As New TcpClient

    Dim Message1 As String = ""

    Dim IPAdd As String

    ' Dim clnt As New UNOLibs.Net.ClientClass

    ' Dim clnt2 As New UNOLibs.Net.ClientClass

    '  Dim WithEvents server As UNOLibs.Net.ServerClass

    ' Dim WithEvents server2 As UNOLibs.Net.ServerClass



    Private Sub Listening()

  Listener.Start()

  Listener1.Start()

    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click

  Try

    Client = New TcpClient("192.168.1.2", 65535)

    Dim Writer As New StreamWriter(Client.GetStream())

    Writer.Write(Form5.txtName.Text & ":" & txtmessage.Text)

    Writer.Flush()

    RichTextBox1.Text += (Form5.txtName.Text & ":  " & txtmessage.Text) + vbCrLf

    txtmessage.Text = ""

  Catch ex As Exception

    Console.WriteLine(ex)

    Dim Errorresult As String = ex.Message

    MessageBox.Show(Errorresult & vbCrLf & vbCrLf & "Please Review Client Address", "Error Sending Message", MessageBoxButtons.OK, MessageBoxIcon.Error)

  End Try

    End Sub



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

  If Listener.Pending = True Then

    Message = ""

    Client = Listener.AcceptTcpClient()



    Dim Reader As New StreamReader(Client.GetStream())

    While Reader.Peek > -1

    Message = Message + Convert.ToChar(Reader.Read()).ToString

    End While

    RichTextBox1.ForeColor = Color.Black

    RichTextBox1.Text += Message + vbCrLf

  End If

  If Listener1.Pending = True Then

    Message1 = ""

    Client1 = Listener1.AcceptTcpClient()



    Dim Reader1 As New StreamReader(Client1.GetStream())

    While Reader1.Peek > -1

    Message1 = Message1 + Convert.ToChar(Reader1.Read()).ToString

    End While

    ' Form5.PicClient.Image = StringToBitmap(Message1)

  End If

    End Sub