How to control client from server

Imports System.Net.Sockets

Imports System.Threading
Imports System.Windows.Forms
Imports System.IO


Public Class broadcast



    Private conn As Socket
    Private readthread As Thread
    Private socketstream As NetworkStream
    Private writer As BinaryWriter
    Dim c As String

    Private reader As BinaryReader
    Public Sub New()
        MyBase.New()



        readthread = New Thread(AddressOf RunServer)
        readthread.Start()



    End Sub

    Public Sub RunServer()
        Dim listener As New TcpListener(5234)
        Dim counter As Integer = 1
        Try

            listener.Start()
            While True

                Dim b As String

                b = "C:\Users\Public\Videos\Sample Videos\Wildlife.wmv" '

                conn = listener.AcceptSocket
                socketstream = New NetworkStream(conn)
                writer = New BinaryWriter(socketstream)
                reader = New BinaryReader(socketstream)

                Dim theReplay As String = ""
                Select Case c 'here i need to control the clinet play,pause,mute....etc but  this select statment did'nt worked 
                    Case "play"
                        frmMain.AxWindowsMediaPlayer1.Ctlcontrols.play()



                End Select
                Try



                    writer.Write(b)

                    writer.Write(c)


                    'Catch inputputputexception As IOException
                Catch inputputputexception As Exception
                    MessageBox.Show("Clinet application closing")
                Finally

                    writer.Close()
                    reader.Close()
                    socketstream.Close()
                    conn.Close()
                    counter += 1

                End Try

            End While

        Catch inpitoutputException As IOException
            MessageBox.Show("Server application Closing")

        End Try
    End Sub


End Class

<pre lang="msil">Imports System.Net.Sockets
Imports System.Windows.Forms
Imports System.IO
Imports System.Threading
Public Class recieve

    Private output As NetworkStream
    Private reader As BinaryReader
    Private writer As BinaryWriter
    Private message As String = ""
    Private readthred As Thread
    Public Sub New()
        MyBase.New()

        readthred = New Thread(AddressOf runClinet)
       readthred.Start()

    End Sub

    Public Sub runClinet()
        Dim clinet As TcpClient
        Try
            clinet = New TcpClient()
            clinet.Connect("127.0.0.1", 5234)
            output = clinet.GetStream()
            writer = New BinaryWriter(output)
            reader = New BinaryReader(output)
            Try
                               Dim r As String

                message = reader.ReadString' Here must recive the video and action of the controls
                               frmMain.AxWindowsMediaPlayer1.URL = message
                frmMain.Playlist.Items.Add(message)
                MessageBox.Show(message & ":" & frmMain.Playlist.Items.Count)
                       Catch inputoutputException As IOException
                MessageBox.Show("Clinet application Closing")
            Finally
                writer.Close()
                reader.Close()
                output.Close()
                clinet.Close()
            End Try
            
        Catch inputoutputException As IOException
            MessageBox.Show("Clinet application Close")
        End Try
    End Sub
End Class