Dim WorkThread As Thread
    Private ThreadTimer As System.Threading.Timer = Nothing
    Private _Flag As Boolean = False

    Sub RunWork()

            Me._Flag = True
            WorkThread = New Thread(New ThreadStart(AddressOf TestThreadTimer))
            WorkThread.IsBackground = True
            WorkThread.Name = "WorkThread"
            WorkThread.Start()

    End Sub

    Public Sub TestThreadTimer()
        ThreadTimer = New System.Threading.Timer(New TimerCallback(AddressOf Me.Work), Nothing, 0, 500)
    End Sub

    Private Sub StopThread()'停止线程
        Me._Flag = False
        ThreadTimer.Dispose()
        If Not WorkThread Is Nothing Then
            Try
                If WorkThread.ThreadState <> Threading.ThreadState.Stopped Then
                    WorkThread.Abort()
                End If

            Catch ex As ThreadAbortException
                Thread.Sleep(1000)
                WorkThread.Abort()
            Finally
                WorkThread.Abort()
            End Try
        End If
        WorkThread.Abort()
    End Sub

    Public Sub Work()
        Checkkq()'此函数为线程要执行的方法
        Thread.Sleep(500)
    End Sub