Неубиваемый процесс

Imports System.Threading.Thread
Module Module1
    Dim lol As New List(Of Threading.Thread)
    Sub Main()
        For i = 0 To 10
            Dim lol2 = New Threading.Thread(AddressOf thr1)
            lol.Add(lol2)
            lol2.Name = i
            lol2.Start()
        Next
    End Sub
    Sub thr1()
        Do
            MsgBox("Привет из потока" & Threading.Thread.CurrentThread.Name)
            Threading.Thread.Sleep(1000)
            SyncLock lol
                For i = 0 To lol.Count - 1
                    If lol(i).IsAlive Then
                        'Живет, сабака
                    Else
                        lol.Remove(lol(i))
                        Dim lol2 = New Threading.Thread(AddressOf thr1)
                        lol.Add(lol2)
                        lol2.Start()
                    End If
                Next
            End SyncLock
        Loop
    End Sub
End Module