Error por excepción al crear mi servidor vb.net


10 de Enero del 2017

Hola estoy intentando hacer un simple servidor en vb.net bueno lo hice pero esque ahora me da una excepción. La excepción es la siguiente:

Unhandled Exception: System.Net.Sockets.SocketException: An attempt was made to
access a socket in a way forbidden by its access permissions
at System.Net.Sockets.Socket.DoBind(EndPoint endPointSnapshot, SocketAddress
socketAddress)
at System.Net.Sockets.Socket.Bind(EndPoint localEP)
at System.Net.Sockets.TcpListener.Start(Int32 backlog)
at System.Net.Sockets.TcpListener.Start()
at name.TCPControl..ctor() in C:UsersneverDesktopNew folderTCPServerClea
nnameTCPControl.vb:line 23
at name.Program.Main() in C:UsersneverDesktopNew folderTCPServerCleanna
meProgram.vb:line 12
El código de mi servidor:

Module Program
Public Server As TCPControl
Sub Main()
Server = New TCPControl
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
Código de mi clase TCP:

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

Public Class TCPControl
Public Event MessageReceived(sender As TCPControl, Data As String)

' SERVER CONFIG
Public ServerIP As IPAddress = IPAddress.Any
Public ServerPort As Integer = 64555
Public Server As TcpListener

Private CommThread As Thread
Public IsListening As Boolean = True

' CLIENTS
Private Client As TcpClient
Private ClientData As StreamReader

Public Sub New()
Server = New TcpListener(ServerIP, ServerPort)
Server.Start()

CommThread = New Thread(New ThreadStart(AddressOf Listening))
CommThread.Start()
End Sub

Private Sub Listening()
' CREATE LISTENER LOOP
Do Until IsListening = False
' ACCEPT INCOMING CONNECTIONS
If Server.Pending = True Then
Client = Server.AcceptTcpClient
ClientData = New StreamReader(Client.GetStream)

End If

' RAISE EVENT FOR INCOMING MESSAGES
Try
RaiseEvent MessageReceived(Me, ClientData.ReadLine)
Catch ex As Exception

End Try

' REDUCE CPU USAGE
'Thread.Sleep(100)
Loop
End Sub
End Class