vb.net使用Task类配合CancellationToken进行方法的取消操作。例如创建两个按钮，一个按钮点击执行封装好的sum方法，另一个按钮点击取消正在执行的sum方法

在VB.NET中，你可以使用`System.Threading.Tasks.Task`和`CancellationTokenSource`来实现异步方法的取消操作。首先，你需要创建一个`CancellationTokenSource`，它是一个用于管理`CancellationToken`的对象。当用户点击"取消"按钮时，你可以通过这个源来获取一个`CancellationToken`。

Imports System.Threading.Tasks
Imports System.Threading

' 定义一个变量来存储CancellationTokenSource
Private cancelTokenSource As CancellationTokenSource = Nothing

' 当需要开始执行任务时
Private Async Sub StartSumButton_Click(sender As Object, e As EventArgs) Handles StartSumButton.Click
    ' 创建一个新的CancellationTokenSource
    cancelTokenSource = New CancellationTokenSource()

    ' 使用CancellationToken来启动异步任务
    Dim task As Task(Of Integer) = SumAsync(cancelTokenSource.Token)
    task.ContinueWith(Sub(t As Task)
                        If t.IsFaulted Then
                            MessageBox.Show("计算过程中出错：" & t.Exception.Message)
                        ElseIf Not t.Result.HasValue Then
                            MessageBox.Show("计算已取消")
                        Else
                            MessageBox.Show($"计算结果：{t.Result.Value}")
                        End If
                    End Sub)

    ' 开始执行任务
    task.Start()
End Sub

' 包装成异步方法，接受CancellationToken作为参数
Private Async Function SumAsync(token As CancellationToken) As Task(Of Integer)
    Try
        ' 模拟耗时的操作
        Using _ = token.Register(Function() cancelTokenSource.Cancel())
            Return Await Task.Delay(5000, token) ' 如果token.IsCancellationRequested返回true，则会被中断
        End Using

    Catch ex As OperationCanceledException
        Return Nothing ' 表示操作已被取消
    End Try
End Function

' 取消按钮的处理
Private Sub CancelButton_Click(sender As Object, e As EventArgs) Handles CancelButton.Click
    ' 如果已经有一个任务正在运行，尝试取消它
    If Not cancelTokenSource Is Nothing Then
        cancelTokenSource.Cancel()
    End If
End Sub