vb.net 結束 thread

Imports System
Imports System.Threading
Public Class MyTestApp

     Public Shared Sub Main()
         Dim t As New Thread(New ThreadStart(AddressOf MyThreadMethod))

         ' Start the thread
         t.Start()
         MsgBox("Are you ready to kill the thread?")

         'Kill the child thread and this will cause the thread raise an exception
         t.Abort()
         ' Wait for the thread to exit
         t.Join()
         MsgBox("The secondary thread has terminated.")

     End Sub
     Shared Sub MyThreadMethod()
         Dim i As Integer
         Try
             Do While True
                 Thread.CurrentThread.Sleep(1000)
                 Console.WriteLine("This is the secondary thread running.")
             Loop
         Catch e As ThreadAbortException
             MsgBox("This thread is going to be terminated by the Abort method in the Main function")
         End Try
     End Sub
End Class