Правильно завершить поток

Imports System.Threading
Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Public Delegate Sub ДелегатТекст(ByVal text As String)
    Public Delegate Sub ДелегатЦифр(ByVal text As Integer)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Старт"
        Button2.Text = "Стоп"
    End Sub
 
    ' Делегат 1
    Private Sub ListBox(s As String)
        If ListBox1.InvokeRequired Then
            Me.Invoke(New ДелегатТекст(AddressOf ListBox), s)
        Else
            ListBox1.Items.Add(s)
        End If
    End Sub
 
    ' Делегат 2
    Private Sub Label(s As Integer)
        If Label1.InvokeRequired Then
            Me.Invoke(New ДелегатЦифр(AddressOf Label), s)
        Else
            Label1.Refresh()
            Label1.Text = s
        End If
    End Sub
 
    ' Процесс потока
    Public Sub Процесс_потока(ByVal ИменаФайлов As System.Object) ' Процесс потока
        For a = 0 To 100000
            Label(a)
            ListBox(a)
        Next
    End Sub
 
    'Запуск потока
    Public Sub Кнопка_Старт(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Поток As New System.Threading.Thread(AddressOf Процесс_потока)
        'Поток.IsBackground = True
        Поток.Start()
    End Sub
 
    'Остановка потока
    Public Sub Кнопка_Стоп(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'Поток.Abort()
        'Me.Refresh()
    End Sub
 
    'Private Sub Закрытие(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
    '    'Поток.Abort()
    '    e.Cancel = True
    '    sender.hide()
    '    Me.Finalize()
    '    Me.Dispose()
    '    Me.Close()
    'End Sub
End Class

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Threading
Imports System.Threading.Tasks
Imports System.Windows.Forms
 
Namespace dymitri
    Public Partial Class Form1
        Inherits Form
        Private mToken As CancellationTokenSource
        Private mContextUI As TaskScheduler
        Private mTask As Task
 
        Public Sub New()
            InitializeComponent()
            Me.mContextUI = TaskScheduler.FromCurrentSynchronizationContext()
            Me.mToken = New CancellationTokenSource()
            Me.mTask = Task.Factory.StartNew(AddressOf Me.Method, Me.mToken.Token, Me.mToken.Token)
        End Sub
 
        Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs)
            Try
                Me.mToken.Cancel()
                Me.mTask.Wait()
            Catch exc As AggregateException
                        ' Task cancelled
                If Me.mTask.IsCanceled Then
                End If
            End Try
        End Sub
 
        Private Sub Method(ct As Object)
            Dim token As CancellationToken = DirectCast(ct, CancellationToken)
 
            While True
                Thread.Sleep(100)
 
                token.ThrowIfCancellationRequested()
 
                Task.Factory.StartNew(Function() InlineAssignHelper(Me.Text, DateTime.Now.ToString()), CancellationToken.None, TaskCreationOptions.None, Me.mContextUI)
            End While
        End Sub
        Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
            target = value
            Return value
        End Function
    End Class
End Namespace
 
'=======================================================
'Service provided by Telerik ([url]www.telerik.com[/url])
'Conversion powered by NRefactory.
'Twitter: @telerik
'Facebook: facebook.com/telerik
'=======================================================

    Public Delegate Sub ДелегатТекст(ByVal text As String)
    Public Delegate Sub ДелегатЦифр(ByVal text As Integer)
    Public ext As Boolean = False
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Старт"
        Button2.Text = "Стоп"
    End Sub
 
    ' Делегат 1
    Private Sub ListBox(s As String)
        If ListBox1.InvokeRequired Then
            Me.Invoke(New ДелегатТекст(AddressOf ListBox), s)
        Else
            ListBox1.Items.Add(s)
        End If
    End Sub
 
    ' Делегат 2
    Private Sub Label(s As Integer)
        If Label1.InvokeRequired Then
            Me.Invoke(New ДелегатЦифр(AddressOf Label), s)
        Else
            Label1.Refresh()
            Label1.Text = s
        End If
    End Sub
 
    ' Процесс потока
    Public Sub Процесс_потока(ByVal ИменаФайлов As System.Object) ' Процесс потока
        For a = 0 To 100000
                Label(a)
                ListBox(a)
            If ext Then Exit For
        Next
    End Sub
 
    'Запуск потока
    Public Sub Кнопка_Старт(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Поток As New System.Threading.Thread(AddressOf Процесс_потока)
        Поток.Start()
    End Sub
 
    'Остановка потока
    Public Sub Кнопка_Стоп(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ext = True
    End Sub