我做了一个循环函数。想停止的时候用按钮终止循环。
但是一点按钮就未响应。达不到终止效果。正确做法是什么？
按钮代码
Private Sub PI_btnPItsp_Click(sender As Object, e As EventArgs) Handles PI_btnPItsp.Click
Stoprun = True
End Sub
循环代码：
For i = 0 To piphaseend Step 1
piphase = piphase + 1
If Stoprun Then
Exit For
End If
过程略
Next

@夜闻香

还有一个问题。我循环里边加了一个textbox打印，结果是一直不显示。是不是反应太快了？

考虑用多线程

1. 用线程
2. 在循环过程中执行一行代码 Application.DoEvents

1，加入Application.DoEvents（）之后成真死了。以前只是假死，现在一点直接崩溃了。
2，使用多线程也没有作用呢。主要是按钮不让点，点不动。
能点的时候报错：
System.NullReferenceException: 未将对象引用设置到对象的实例。
代码：
Imports System.Threading '多线程
Private T As System.Threading.Thread '新建线程
Private Sub PI_btnPItsp_Click(sender As Object, e As EventArgs) Handles PI_btnPItsp.Click
'Stoprun = True
T.Abort() '退出线程
End Sub
Private Sub PI_btnPIAtest_Click(sender As Object, e As EventArgs) Handles PI_btnPIAtest.Click
T = New System.Threading.Thread(AddressOf test_mix)
T.Start() '线程启动
End Sub
Private Sub test_mix()
略
End Sub

因为方法不是异步的当然就占用UI线程导致后续的停止操作无法输入，直接用线程是老方法了，.net Framework 4.0以上可以用异步和CancelToken。

公共变量声明在public module里
public isStop as boolean = false
线程：
private sub th()
while not isStop
...
end while
end sub
ui按钮里写
isStop = true

这个应该能满足你最简单的要求，但是并不是最好的方法

因为终止循环需求很简单，所以最上面的那个cts可以改成Boolean，
然后只需要检查这个Boolean就是了。
用cts的原因只是我写规范代码的习惯，
CancellationToken是专门用来向线程发送取消通知的令牌。

放到子线程执行就不卡死了。子线程想要控制控件，还得加上一句，放在LOAD里也可以。
Control.CheckForIllegalCrossThreadCalls = False '多线程访问控键