Protected Sub HandleStdProperty(Of T)(ByRef var As T, value As T, _
		 Optional ChangingEvent As EventHandler = Nothing, _
		 Optional ChangedEvent As EventHandler = Nothing, _
		 Optional CheckSub As HandleStdProperty_CheckSub_Delegate = Nothing)
		Dim e As New ValueChangingEventArgs(Of T)(var, value)
		If Not IsNothing(ChangingEvent) Then If Not _oninit Then ChangingEvent(Me, e)
		If e.Cancel Then Return
		If Not IsNothing(CheckSub) Then CheckSub()
		var = e.NewValue
		If Not IsNothing(ChangedEvent) Then If Not _oninit Then ChangedEvent(Me, New _
  ValueChangedEventArgs(Of T)(var))
	End Sub