线程常遇到问题 thread

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ‘在加载窗口时就  让EndOtherThread方法订阅窗口关闭事件  
        AddHandler Me.FormClosing, AddressOf EndOthreThread
    End Sub

 Private Sub EndOthreThread(ByVal sender As Object, ByVal e As FormClosingEventArgs)
        If th.IsAlive Then
            th.Abort()
        End If
    End Sub