listener.start() internal exception

Imports System.Net.Sockets
Imports System.IO
Imports System.Threading


Public Class Scontrol
 Private conn As Socket
 Private thread As Thread
 Private socketstream As NetworkStream
 Private writer As BinaryWriter
 Private writer1 As BinaryWriter
 Dim listener As New TcpListener(5221)//hada port thane 4er tb3 broadcasr
 Dim counter As Integer = 1
 Dim x As Int16

 Public Sub New()
 thread = New Thread(AddressOf scontrol)//scontrol function t7t
 thread.Start()

 End Sub
 Public Sub scontrol()
 While True
 Dim listener As New TcpListener(5221)
 Dim counter As Integer = 1
 listener.Start()
 thread.Sleep(200)
 Select Case x
 Case 1
 If thread.IsAlive = True Then


 frmMain.AxWindowsMediaPlayer1.Ctlcontrols.pause()
 frmMain.AxWindowsMediaPlayer1.Ctlcontrols.pause()
 End If

 Case 2
 If thread.IsAlive Then
 frmMain.AxWindowsMediaPlayer1.Ctlcontrols.play()

 End If

 End Select


 End While
 writer.Write(x)
 End Sub


End Class

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO

Public Class Control
 Private output As NetworkStream
 Private reader As BinaryReader
 Private writer As BinaryWriter
 Private reader1 As BinaryReader
 Dim thread As Thread
 Dim b As Int16



 Public Sub New()
 thread = New Thread(AddressOf conto)
 thread.Start()



 End Sub
 Public Sub conto()
 Try


 While True
 Dim clinet As TcpClient


 clinet = New TcpClient()
 clinet.Connect("127.0.0.1", 5221)
 output = clinet.GetStream()
 writer = New BinaryWriter(output)
 reader = New BinaryReader(output)
 reader1 = New BinaryReader(output)
 thread.Sleep(200)
 reader.ReadInt16()//begr2 int 16 bit's
 If thread.IsAlive Then
 If reader.ReadInt16 = 1 Then
 If frmMain.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
 frmMain.AxWindowsMediaPlayer1.Ctlcontrols.pause()
 frmMain.Play_PictureBox.Image = My.Resources.Pause_Hover//hon b7ot pic ta3t play fe picture box ta3t play


 End If
 End If

 ElseIf reader.ReadInt16 = 2 Then
 If frmMain.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
 frmMain.AxWindowsMediaPlayer1.Ctlcontrols.play()
 frmMain.Play_PictureBox.Image=My.Resources.Play_Hover//hon 7ateet pic ta3t play

 End If

 End If






 End While
 Catch ex As Exception
 MsgBox(ex.Source)

 End Try
 End Sub
End Class