使用TaskCompletionSource<T>为某些尚未具有异步API的异步条件创建任务。使用CancellationToken.Register将基于CancellationToken的现代取消系统连接到另一个取消系统。您的解决方案只需要将这两者合并结合起来。
我有一个CancellationToken.AsTask() extension method in my AsyncEx library，但你可以这样写你自己的：

<System.Runtime.CompilerServices.Extension> _
Public Shared Function AsTask(cancellationToken As CancellationToken) As Task
  Dim tcs = New TaskCompletionSource(Of Object)()
  cancellationToken.Register(Function() tcs.TrySetCanceled(), useSynchronizationContext := False)
  Return tcs.Task
End Function

用法如您所料：

Await Task.WhenAny(Task.WhenAll(taskCollection), cancellationToken.AsTask())

Dim tcs as new TaskCompletionSource(Of Object)()
Await Tasks.Task.WhenAny(Tasks.Task.WhenAll(TaskCollection), tcs)

若要取消，请调用tcs.SetResult（Nothing）。这将触发您的Task.WhenAny.

在我看来更优雅：

await Task.Run(()=> Task.WaitAll(myArrayOfTasks), theCancellationToken);

在.NET 6（或更高版本）中，您现在可以使用：用途：

Await Task.WhenAll(...).WaitAsync(cancellationToken)

WaitAsync可以接受TimeSpan timeout、CancellationToken或两者。