Private isStop As Boolean = False     Dim th As Thread     Public Sub TestThread()         If th IsNot Nothing AndAlso th.IsAlive Then             Return         End If         th = New Thread(Address