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