Public
	Sub AddQueryClose(h As FormClosingHandler)
		If IsNothing(queryClose) Then
			queryClose = h
		Else
			queryClose += h
		End If
	End Sub
	Sub RemoveQueryClose(h As FormClosingHandler)
		If Not IsNothing(queryClose) Then
			queryClose -= h
		End If
	End Sub
Protected
	Sub OnQueryClose(e As FormClosingArgs)
		If Not IsNothing(queryClose) Then
			queryClose(This, e)
		End If
	End Sub
Private
	queryClose As FormClosingHandler