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