Public
	Static Sub AddThreadExit(h As Handler)
		If IsNothing(threadExit) Then
			threadExit = h
		Else
			threadExit += h
		End If
	End Sub
	Static Sub RemoveThreadExit(h As Handler)
		If Not IsNothing(threadExit) Then
			threadExit -= h
		End If
	End Sub
Protected
	Static Sub OnThreadExit(e As Args)
		If Not IsNothing(threadExit) Then
			threadExit(This, e)
		End If
	End Sub
Private
	Static threadExit As Handler