[RESOLVED] Need help visual basic program?

who can program to get message from the client side?
This is server side but cannot display message from client side.who know use which method to solve it?

vb Code:

Imports System.Net.Sockets
Public Class Form1
    Const portNo As Integer = 500
    Dim localAdd As System.Net.IPAddress = _
       System.Net.IPAddress.Parse("127.0.0.1")
    Dim listener As New TcpListener(localAdd, portNo)
    Private Sub TmrCheck_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCheck.Tick
        TmrCheck.Enabled = False
        Dim user As ChatClient.ChatClient
        user = New ChatClient.ChatClient(listener.AcceptTcpClient)
 
        MessageBox.Show("come to here")
        TmrCheck.Enabled = True
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub ButStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButStart.Click
        listener.Start()
        TmrCheck.Enabled = True
 
    End Sub