Imports System.ComponentModelImports System.ThreadingPublic Class Form1 Dim cts As CancellationTokenSource Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork …

Imports System.ComponentModelImports System.ThreadingPublic Class Form1 'スレッド開始ボタン処理 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '処理が行われているときは、何もしない If BackgroundWorker1.Is…