KOZさん

度々すみません。
以下のコードと添付写真の通り作成してみたのですが、
例えば添付写真のように途中でキャンセルする方法はありますか？
実行中は他のボタンも押せなくなってしまいます。
何度も申し訳ありませんが、可能でしたらサンプルコードを教えて
いただけましたら幸いです。
何卒よろしくお願いいたします。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Process.StandardOutput は StreamReader です。
        'EndOfStream プロパティが True になるまで ReadLine を繰り返してください。

        Using p As New Process
            p.StartInfo.FileName = Environment.GetEnvironmentVariable("ComSpec")
            p.StartInfo.UseShellExecute = False
            p.StartInfo.RedirectStandardOutput = True
            p.StartInfo.RedirectStandardInput = False
            p.StartInfo.CreateNoWindow = True
            'p.StartInfo.Arguments = "/c ping 127.0.0.1"
            p.StartInfo.Arguments = "/c " & TextBox2.Text
            p.Start()
            Dim reader = p.StandardOutput
            Do Until reader.EndOfStream
                Dim buffer = reader.ReadLine()
                'Console.WriteLine(buffer)
                Debug.Print(buffer)
                TextBox1.Text = TextBox1.Text & vbCrLf & buffer
                Me.Refresh()
            Loop
            p.WaitForExit()
        End Using
        'Console.WriteLine("何かキーを押すと終了します。")
        'Console.ReadKey()
    End Sub