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

在VB.NET中，`Task`类和`CancellationToken`常用于异步编程，特别是当需要支持任务的取消时。当你有一个长时间运行的计算过程，如`sum`方法，可以使用`Task`来并发执行，同时通过`CancellationToken`提供了一个机制来中断这个任务。

首先，你需要创建一个`CancellationTokenSource`对象，这个对象会生成一个`CancellationToken`。用户交互事件（比如按钮点击）会被绑定到这个token上，以便于触发取消操作。

Dim cancelTokenSource As New CancellationTokenSource()
Dim cancellationToken = cancelTokenSource.Token

Private Async Sub btnStart_Click(sender As Object, e As EventArgs)
    Try
        ' 开始计算并设置取消标志
        Dim task As Task(Of Integer) = CalculateSumAsync(cancellationToken)
        ' 显示等待UI或者加入某个UI更新事件来处理结果
        Await task
    Catch (OperationCanceledException) When canceled By Me
        ' 如果任务因取消而中断，捕获这个异常
        MessageBox.Show("计算已取消")
    Finally
        ' 记得关闭令牌源，释放资源
        cancelTokenSource.Cancel()
        cancelTokenSource.Dispose()
    End Try
End Sub

Private Async Function CalculateSumAsync(cancellationToken As CancellationToken) As Task(Of Integer)
    ' 在这里编写你的sum方法，如果接收到CancelationRequest，则throw OperationCanceledException
    While Not cancellationToken.IsCancellationRequested
        ' 模拟耗时操作
        System.Threading.Tasks.Task.Delay(5000).Wait(cancellationToken)
        ' 示例中的sum方法，实际上你可以在这里进行累加或其他计算
        Dim sum As Integer = 0
        For i In 1 To 1000000
            If cancellationToken.IsCancellationRequested Then
                Throw New OperationCanceledException()
            End If
            sum += i
        Next
    End While
    Return sum
End Function

Private Sub btnCancel_Click(sender As Object, e As EventArgs)
    ' 当取消按钮点击时，取消当前的任务
    cancelTokenSource.Cancel()
End Sub

在这个例子中，当用户点击"开始"按钮时，`CalculateSumAsync`方法会作为异步任务执行。如果点击了"取消"按钮，`cancelTokenSource.Cancel()`会被触发，中断正在进行的`sum`计算。注意，为了正确管理资源，最后需要调用`cancelTokenSource.Dispose()`来结束任务并关闭相关的token源。