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