2哥学Vb.net--关于线程

最近在努力学习vb.net，今天刚好看到一篇关于讲解多线程的文章，不知道自己理解的对不对，写了以下程序：

前置条件：点击button1，会打开计算器，同时检查F:\1.log 是否存在，如果存在就关掉计算器，

点击button2，创建1.log

现在，先点击button1，再点击button2

代码如下：

Imports System.Threading
Public Class Form1
'===========================方法1=========================================
Public Sub New()
InitializeComponent()

'Control.CheckForIllegalCrossThreadCalls = False '将其设置为true(默认为真），在me.close 处会报错,'设置为False，但是还是会抛出异常。

End Sub
'===========================方法1=========================================

Private firstThread As Thread

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
'启动calc
Dim myProcess As Process = System.Diagnostics.Process.Start("calc.exe")
'创建新线程
firstThread = New Thread(AddressOf xx)
firstThread.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
writLog("xxx")
End Sub

Public Sub writLog(ByVal strParemeter)
My.Computer.FileSystem.WriteAllText("F:\1.log",strParemeter,True,System.Text.Encoding.UTF8)
End Sub

Public Sub xx()
Try
Do While 1
If My.Computer.FileSystem.FileExists("F:\1.log") Then
Thread.Sleep(1000)
'找到进程calc，并关掉
Dim findProcess As Process() = Process.GetProcessesByName("calc")
findProcess(0).Kill()

'关掉firstThread线程
'firstThread.Abort() '方法1
StartDelegate() '方法2
Exit Do
End If
Loop
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
'Me.Close '方法1
End Try
End Sub

'===========================方法2=========================================
Private Delegate Sub TestDelegate() ’这个方法本人还不是很懂，委托（不需要参数，没有返回值） 下阶段学习对象

Private Sub DelegateMethod()
firstThread.Abort()
Me.Close()
End Sub

Private Sub StartDelegate()
Me.BeginInvoke(New TestDelegate(AddressOf DelegateMethod))
End Sub
'===========================方法1=========================================
End Class

线程的相关的些知识：

线程取消：CancelTask()

线程的优先级：System.Threading.Thread.Priority

线程的状态：线程从创建到终止，它一定处于某一个状态，而这个状态是由System.Threading.Thread.ThreadState属性定义的。当一个线程刚被创建时，它处在Unstarted状态，然后Thread类的Start() 方法将使线程状态变为Running状态，如果不调用相应的方法使线程挂起、阻塞、销毁或者终止，则线程将一直保持这样的状态。挂起的线程处于Suspended状态，直到我们调用resume（）方法使其重新执行，这时候线程将重新变为Running状态。一旦线程被销毁或者终止，则线程处于Stopped状态，处于这个状态的线程将不复存在。线程还有一个Background状态，它表明线程运行在前台还是后台。

此外还有线程池，线程的同步等等。。。。。有待研究