「Taskの入れ子の待ち方」の続きです。
子Taskをラムダ式からメソッドへのデリゲートに変え、Task.Runにキャンセルトークンを渡すように変更したコードが次の通りです。
Dim tokenSource As New CancellationTokenSource
Private Async Sub Button6_Click(sender As Object, e As EventArgs)
tokenSource = New CancellationTokenSource
    Debug.Print($"StartTask ID：{CurrentId}　スレッド：{CurrentThread.ManagedThreadId}")
    Try
    　　Await Task.Run(AddressOf Test, tokenSource.Token)
    Finally
    　　tokenSource.Dispose()
    End Try
    Debug.Print($"FinishTask ID：{CurrentId}　スレッド：{CurrentThread.ManagedThreadId}")
End Sub

Async Function Test() As Task
Dim i As Integer = 0
    Debug.Print($"子Task ID：{CurrentId}　スレッド：{CurrentThread.ManagedThreadId}")
    Dim 孫Task As Task = Task.Run(
    　　Sub()
        　　Dim j As Integer = 0
            Debug.Print($"孫子Task ID：{CurrentId}　スレッド：{CurrentThread.ManagedThreadId}")
            While j < 7
            　　If token.IsCancellationRequested Then
                　　Debug.Print("孫Taskは、停止しました。")
                    Exit While
                End If
                Thread.Sleep(500) '0.5秒待つ
                Debug.Print($"孫TaskCount：{j}")
                j += 1
            End While
        End Sub)
    While i < 5
    　　If token.IsCancellationRequested Then
        　　Debug.Print("子Taskは、停止しました。")
            Exit While
        End If
    　　Thread.Sleep(500) '0.5秒待つ
        Debug.Print($"子TaskCount：{i}")
        i += 1
    End While
    Await 孫Task
End Function
すると、当然、Testメソッドにtokenの引数が無いので、Testメソッド側でtokenが認識できません。当然のように思えます。
ネットでググっても、Testメソッドの引数にキャンセルトークンを渡しているものばかりが見つかります。
ってことは、Task.Runで、キャンセルトークンを渡す必要性がそもそも無いということになるように思いますが、間違っていますでしょうか？何のためにキャンセルトークンをTask.Runで渡すのでしょうか？
「Taskの入れ子の待ち方」では、ラムダ式で渡していたので、Task.Runでtokenを渡さなくてもメインスレッドのtokenの状態を確認することができました。
Task.Runで、キャンセルトークンを渡しているので、孫タスク側で何か？うまい方法でtokenを認識する方法は？無いものでしょうか？
質問の意図が通じますでしょうか？
宜しくお願い致します。