Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As EventArgs) Handles Button1.Click
//中间是很长的代码执行任务长达30秒
End Sub
现在我想做一个按钮，在 任意时刻 点击这个按钮的时候，就能让上面正在进行的任务立即终止。希望各位大神帮助！

使用多线程

既然执行时间长达30秒，肯定有很大的循环，做标记比较简单点
dim flag as boolean=false'全局变量
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As EventArgs)
flag=false'必要的代码
.......
'在循环体内 插入如下代码
If flag=true then exit sub
......
end sub
'按钮的代码如下
private sub Button2_Click(ByVal sender As System.Object, ByVal e As EventArgs)
flag=true
end sub
别忘要在循环体内插入代码application.doevents，否则Button2不能按

可能CancellationTokenSource才是关键哦，设计到task调度的问题

这不就是线程的主要功能吗？当然3楼的方法也可以试试！