Thread in VB.NET won't stop (w/code)

I have a windows application that does not stop running whenever the
application exits.

Could someone fill me in on what I am doing wrong?

Here is the relevant code:
=============== =============== ===
Private m_thTCP As Thread
Private m_listener As TcpListener

Public Sub New()
InitializeCompo nent() ' This call is required by the Windows Form
Designer.
m_thTCP = New Thread(AddressO f TCPServer)
ThreadStart()
End Sub

Private Sub Form1_FormClosi ng(ByVal sender As Object, ByVal e As
System.Windows. Forms.FormClosi ngEventArgs) Handles Me.FormClosing
ThreadStop()
End Sub

Private Sub Restart_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles RestartButton.C lick
ThreadRestart()
End Sub

Private Sub ThreadStop() ' Stopping TCP Listener Service
Try
If (m_thTCP.Thread State <ThreadState.St opped) Then
Dim i As Int16 = 0
m_listener.Stop ()
Application.DoE vents()
Thread.Sleep(20 0)
While ((i < 100) And (m_thTCP.Thread State <ThreadState.St opped))
' gives thread 5 secs to stop!
m_thTCP.Abort()
Application.DoE vents()
Thread.Sleep(50 )
i += 1
End While
End If
Catch ex As Exception
MsgBox(ex.Messa ge)
Finally
Console.WriteLi ne("ThreadStat e is {0}", m_thTCP.ThreadS tate.ToString() )
m_thTCP = Nothing
End Try
End Sub

Public Sub ThreadRestart() ' Restarting TCP Listener Service
Try
ThreadStop()
m_thTCP = New Thread(AddressO f TCPServer)
ThreadStart()
Catch ex As Exception
MsgBox(ex.Messa ge)
End Try
End Sub

Private Sub ThreadStart()
Try
m_thTCP.Start()
Catch ex As Exception
MsgBox(ex.Messa ge)
End Try
End Sub

Private Sub TCPServer()
Try ' Starting TCP Listener from thread
m_listener = New TcpListener(IPA ddress.Any, m_port)
m_listener.Star t()
While True
Dim client As TcpClient = m_listener.Acce ptTcpClient()
' Waits until data is available on the network
Dim stream As NetworkStream = client.GetStrea m()
Dim bytes(client.Re ceiveBufferSize ) As Byte
stream.Read(byt es, 0, CInt(client.Rec eiveBufferSize) )
Dim data As String = Encoding.ASCII. GetString(bytes )
data = data.TrimEnd(da ta.Substring(da ta.Length - 1))
If (data.Substring (3) <String.Empty ) Then
Dim item As String = data.Substring( 3)
If (item <"") Then
Console.WriteLi ne("Data Read: {0}", item)
End If
End If
stream.Close()
client.Close()
End While
Catch ex2 As SocketException
Console.WriteLi ne("SocketExcep tion: {0}", ex2)
Catch ex1 As ThreadAbortExce ption ' dismiss this one
Exit Sub
Catch ex As Exception
MsgBox(ex.Messa ge)
Finally
Try
m_listener.Stop ()
Catch ex As Exception ' Throws Exception if it never was opened
End Try
End Try
End Sub